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Este jogo de adivinhação de palavras 
agrada a todas as idades, pode ter o 
nível de dificuldade que se queira e é 
muito versátil. Inspirado no “jogo da 
forca”, destina-se a dois jogadores. 


Alguns jogos para computador não 
são apenas recreativos — como os de 
aventura —, prestando-se muito bem 
para fins educativos. É o caso do que 
apresentamos aqui, inspirado no conhe- 
cido “jogo da forca”. 

Este, adaptado ou não para o com- 
putador, ajuda não só a ampliar o vo- 
cabulário do jogador, assim como seus 
conhecimentos gerais sobre vários temas 
(já que é usual a definição prévia de um 
assunto sobre o qual as frases ou pala- 
vras versarão). 

O jogo de INPUT, destinado a duas 
pessoas, também tem como objetivo a 
adivinhação de palavras ou frases. É 
mais interessante e mais divertido que 
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o tradicional “jogo da forca” e tão edu- 
cativo quanto ele. Pode ser jogado da 
mesma maneira, estabelecendo-se um 
assunto, o número de letras das palavras 
ou outro critério que se desejar. 


OJOGO 


Inicialmente, digite o nome dos dois 
jogadores. Em seguida, escolha o núme- 
ro de palavras da frase que cada joga- 
dor escreverá. Observe que, muitas ve- 
zes, frases mais longas são mais fáceis 
de se adivinhar, devido ao maior núme- 
ro de letras que aparecem. 

Depois de ter escolhido o número de 
palavras, defina o número de jogadas 
que irão constituir a partida — isto €, 
quantas palavras cada jogador terá pa- 
ra adivinhar. 

O primeiro jogador deve, então, pen- 
sar em uma frase e escrevê-la no com- 
putador. O adversário não precisa estar 
ausente enquanto você digita sua frase, 
pois as letras não aparecerão na tela. 
Mas, confiando em seu oponente, você 
poderá optar por ver as letras, o que lhe 
dará a certeza de que não cometeu ne- 
nhum erro de digitação. 

Deixe apenas um espaço entre cada 
uma das palavras da frase. No caso de 
um único vocábulo, nenhum espaço é 
permitido. O tamanho máximo de cada 
frase é de quarenta caracteres no micro 
Apple e no TK-2000, 64 no Spectrum e 
no TRS-Color e 78 no MSAXA. 

Quando terminar a digitação, pres- 
sione a tecla < ENTER > para que a te- 
la principal apareça. Em seu topo, você 
dará, então, o nome dos jogadores e o 
número de pontos de cada um — 200, 
para começar o jogo. 

Abaixo do placar, há uma tabela in- 
dicando os valores das letras. As de uso 
frequente têm valor mais alto. As me- 







UM DESAFIO PARA DOIS 
MONTAGEM DA TELA 
AS REGRAS DO JOGO 

“OS VALORES DAS LETRAS 

ESTRATÉGIA 


EEN 


nos usuais têm um valor baixo. A frase 
a ser adivinhada aparece como uma se- 


quência de asteriscos. 


No rodapé da tela encontram-se as 
instruções e, também, um espaço para 
os comandos e palpites. 





ESTRATÉGIA 


O jogador tem três opções de joga- 
da: comprar letras (ou espaço), adivi- 
nhar uma letra em determinada posição, 
ou adivinhar a frase toda. 

No início da jogada, uma boa opção 
é comprar um espaço — se suspeitar que 
a frase tem mais de uma palavra, é cla- 
ro. Vogais são caras, mas aparecem com 
frequência. As letras mais baratas apa- 
recem muito menos € você corre o risco 
de não esclarecer nada com elas. Sem- 
pre é mais fácil chegar à frase correta 
quando se tem algumas consoantes — 
portanto, não se preocupe demais com 
as vogais. 

Quando a frase começar a tomar for- 
ma, provavelmente você quererá adivi- 
nhar uma letra em determinada posição. 
Tendo uma palavra como 5*U, por 
exemplo, a letra O será um bom palpi- 
te. E nesse momento que se pode ganhar 
pontos. Colocando uma letra na posi- 
ção correta, você ganha o seu valor em 
pontos. Se errar, perde apenas metade 
do valor. Pressione XX para selecionar 
esta opção e dar o seu palpite. 

Você pode, também, ter uma súbita 
inspiração e tentar acertar a frase toda. 
Nesse caso, deve pressionar ZZ e escre- 
ver a frase. Se ela estiver correta, O va- 
lor de todas as letras que ainda não ti- 
nham sido descobertas será acrescenta- 
do ao seu placar. Se você errar, perderá 
50 pontos. 

Digite a primeira parte do programa. 
Estas linhas fazem o computador acei- 

















oz 





tar todos os dados para iniciar o jogo. 
Mas com ela você não irá muito longe. 
A parte final — que contém as rotinas 
que lêem os palpites, fazem as correções 
e contam os pontos — fica para o pró- 
ximo artigo. 

Não se esqueça de gravar o programa. 


10 LET RS="PALAVRA": LET W=14 
LET d=0: LET f=1: LET q8="" 
LET q=0: LET k=0: LET q8S="* 

: LET ta=200: LET tb=200: LET 

Etc=0: LET b=0: POKE 23609,50: 

POKE 236558,8: LET i9="*": LET 

9$="": LET 2$e"": LET c8="” 

£0 FOR n=Q0 TO /: READ y: POKE 

USR “a“+n,y: NEXT n 


30 DATA 255,129,129,129,129, 
129,129,255 

40 INPUT "NOME DO 

GADOR ? (ATE 
LINE as 

50 INPUT "NOME DO 

ADOR ? (ATE 
; LINE bS 

60 IF LEN asS>7 OR 

THEN GOTO 40 
PO CLS : INPUT 

RAS POR FRASE? (1-9)”, 


PRIMEIRO JO 
7? LETRAS)”, 


SEGUNDO JOG 
? LETRAS)” 


LEN bS>7 


"QUANTAS PALAV 
LINE cS 
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BO IF LEN cS$<%21 THEN GOTO 70 
90 IF CODE c8<49 OR CODE c8> 
9! THEN GOTO 70 

LET c=VAL cS 


110 INPUT "NUMERO DE JOGADAS ? 
(1 a 9)”, LINE LS 

120 IF LEN t5S<>21 THEN GOTO 
110 

130 IF CODE t$<49 OR CODE tS> 
57 THEN GOTO 110 

140 LET t=VAL tg 

150 IF c>l THEN LET j9="8": 
LET 13="COM UM ESPACO ENTRE CA 
DA”: LET r$=" FRASE" 

160 PRINT aS;",E SUA VEZ DE JO 
GAR.” " "INTRODUZA SUA FRASE DE 
“Ice; PALA - VRA";98;".AS LETR 


AS QUE VOCE INTRODU-ZIR SERAO 
INVISIVEIS,MAS SE VOCEQUISER V 


ER ENTÃO PRESSIONE '0'. PARA C 
ONTINUAR, PRESSIONE 1.º 

170 LET kKS=INKEYS: IF k9="" 
THEN GOTO 170 

190 IF k3=€0" THEN POKE 23624 
126: INPUT LINE BS: CLS: 
GOTO 220 

200 IF kS="1" THEN POKE 23624 
163: INPUT LINE a3: CLS : 
POKE 23624,56: GOTO 220 

210 GOTO 170 

220 LET 1=LEN s$ 

230 IF 1=0 THEN PRINT “ENTRAD 
A ILEGAL. TENTE DE NOVO”: 
PAUSE 100: CLS GOTO 160 


240 IF 1>64 THEN PRINT "ENTRA 
DA MUITO LONGA. TENTE DE NOV 
O": PAUSE 100: CLS : GOTO 160 
250 FOR n=1l TO 1: IF sS(n)= 
CHRS 32 THEN LET d=d+1: GoTO 
270 

E60 IF CODE s$(n)<65 OR CODE 


25 (n) 290 THEN PRINT "LETRA IL 
EGAL. TENTE DE NOVO”: PAUSE 
100: CLS LET d=0: GOTO 160 


2?0 IF c=) AND d=1 THEN PRINT 

“NAO HA ESPACOS DENTRO DE UMA 
UNICA PALAVRA. TENTE DE NOV 

O.”": PAUSE 100: CLS LET d=Ô: 

GOTO 160 

280 NEXT n 

290 IF d<>2c-1 THEN 

E DEVE INTRODUZIR ";€;” 


PRINT “VOC 
PALAVR 


AS ":18;”". TENTE OUTRA VEZ": 
PAUSE 100: CLS LET d=0: GOTO 
160 


JU0O LET 28="" 


310 FOR n=1 TO 1: LET 2z$=28+"* 


*+ NEXT n 

320 PRINT INK 1L;AT 0,0; "SCORE 
(f" ,aS: PRINT INK L;AT 0,16;"3 
CORE/";bS: PRINT PAPER 2, INK 


G;AT 1,6;ta; TAB 22; tb; TAB 31;” 


RACTERES” 

340 FOR n=0 TO 26: 

LET qS=q8+98: NEXT n: 
RESTORE 900 

350 PRINT INK L;AT 12,0;"A *; 

r8;" QUE *;b8;"” TEM QUE  ADIVI 

NHAR CONTEM ";L;” CARACTERES”: 

PRINT PAPER 2; INK 6;28 

460 INPUT "VOCÊ QUER COMPRAR U 

M CARACTER PELO PRECO EXIBID 

O NA TABELA” FACA A ESCOLHA 

DO CARACTER. SENAO, TECLE 

XX PARA ADIVINHAR UM CARACTER 
OU ZZ PARA ADIVINHARA FRASE T 


READ q3: 
PRINT q5 






330 PRINT AT 3,7;" VALOR DOS CA | 


ODA.”", LINE ds 
1000 DATA "A-20 " ,"B-10 E 
1"C-10 ","D-12 " ,"E-20 

" ,"F-08 ","G-12 ","H-08 
1010 DATA "I-20 ","J-04 ' 
,"K-06 "ºL=10 ","M-10 
","N-10 *,"0-20 ","P-120 

"."Q-02 ",."R-12 =. "S-1 

5 " 
1020 DATA "T-12 ”*,"U-20 ' 
,"V-08 ","W-08B ","x-04 
","Y-08 ","2Z-02 " , "<GRAP | 
HICS A>-20 ai 


5 CLEAR 1000 
10 RS="* PALAVRA" :W=14:F=1:TA=200 
:TB=200 


15 PI=PEEK (359) : P2=PEEK (360): P3 


=PEEK (361) 
40 CLS:LINE INPUT*NOME DO PRIME 
IRO JOGADOR (MAX / LETRA 


8) T";AS 

50 PRINT:LINE INPUT*NOME DO SEG 
UNDO JOGADOR (MAX 7 LET 
RAS) 7";BS 


60 IF LEN(AS)>7 OR LEN (B3S)>7 T 
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MANIPULAÇÃO DE CORDÕES 
Os comandos BASIC capazes de 
agir sobre variáveis alfanuméricas 
constituem a chave do sucesso do pro- 
gramador interessado em jogos e apli- 
cativos que manipulem palavras. 

Comandos como RIGHTS, LEFTS e 
MID$ permitem a “leitura” do conteú- 
do de uma cadeia de caracteres. E te- 
mos ainda funções como LEN, CHARS, 
STR$ e STRINGS, que tornam possível 
| acriação de novos cordões ou a trans- 
| formação dos antigos. 

Observe que os comandos seguidos 
por um cifrão —''$” — geram novos 
cordões, enquanto os comandos sem 
este sinal resultam num valor numéri- 
co que corresponde ao operando. 


HEN 40 
70 CLS:LINE INPUT"ESCOLHA O NIV 


EL DE DIFICULDADE (NUMERO DE P 
ALAVRAS/FRASE 1-9) 7":C3 

BO IF LEN(CS)<>1 THEN 70 

20 IF C8S<"1” OR C8>"9" THEN 70 

100 C=VAL (C8) 

110 PRINT:LINE INPUT 

JOGADAS (1-9) 7 “;T8 
120 IF LEN(TS)<>1 THEN 110 

130 IF T8<"1”" OR T38>"9" THEN 11 
1) 

140 T=VAL(TS) 

150 IF C>1 THEN JS="S*:1I3S="COM 

UM ESPACO ENTRE CADA" :R3=" FRASE 
155 CLS 
160 PRINT AS;", E BUA VEZ DE JO 
GAR": PRINT: PRINT" INTRODUZA SUA 

FRASE DE ";C;" PALA-VRA";JS 


"NUMERO DE 


165 PRINT: PRINT" PRESSIONE'O' PAR 


A VER AS LETRAS OU "'1' PARA CO 

NTINUAR ...": PRINT 

170 K8=INKEYS: IF K$="" THEN 170 
190 IF K9="1" THEN PRINT "? *;: 
POKE 359,4H86: POKE 360,32:POKE 
361,57:LINE INPUT 585:POKE 359,P 
1:POKE 360, P2:POKE 361,P3:GOoTO 
220 

200 IF K$="0" THEN LINE INPUT * 
7? ":88:G0OTO 220 

210 GOTO 170 

220 L=LEN(83) : PRINT 

230 IF L=0 THEN PRINT "ENTRADA 
ILEGAL - TENTE DE NOVO" :GOSUB 9 
S0:CLS:GOTO 160 

240 IF L>64 THEN PRINT"ENTRADA 
MUITO LONGA-FACA DE NOVO”: GOSUB 
950:CLS:GOTO 160 

250 FOR N=1 TO L:IF MID$S(8SS8,N,1 
) =CHR$ (32) THEN D=D+1:GOTO 270 
260 IF MIDS(S5S,N,1)<"A" OR MIDS 
(88,N,1)>"Z”" THEN PRINT "CARACT 
ER ILEGAL - TENTE DE NOVO” :GOBU 
B 950:CLS:D=0:GOTO 160 


270 IF C=1 AND D=1 THEN PRINT"N 
AO HA ESPACOS DENTRO DE UMA 
UNICA PALAVRA! TENTE DE NOVO ":G 
OSUB 950:CLS:D=0:GOTO 160 

280 NEXT N 

290 IF D<>C-1l THEN PRINT “VOCÊ 
PRETENDE INTRODUZIR" :C; PALA-VR 
AS ";18:PRINT"TENTE DE NOVO” :GO 
BUB 950:CLS:D=0:GOTO 160 

300 Z8m=""” 

310 FOR N=1 TO L:Z8=28+"** :; NEXT 


N 
320 CLS: PRINTCSCORE/";AS,"BCORE 
/”" BS: PRINT 638, TA;TAB(22) ;TB;" 


330 PRINT 0669," VALOR DOS CARAC 
TERES” 

340 FOR N=0 TO 26:READ G8:05=Q5 
+68: NEXT N: PRINT QS:RESTORE 

350 PRINT €320,"A ":;R8;" CONTEM 
";L;" LETRAS": PRINT Z3 

360 PRINT €416,""*;:LINE INPUT * 
XX=ADIVINHAR LETRA 

ZZ=ADIVINHAR A FRASE 


A-Z=COMPRAR O CARACTER ?" ID 
3 
900 DATA "A-2Z0 ",ºB-10 " 
"C-10 “a D-1Z "  "E-20 
“4 F-08 ", G-14 ","H=10 
910 DATA”I-20 "+ J-04 Cao 
K-06 *,"L-10 º , "M-10 aj 
5 N-10 ","0=20 né a da 

“+ Q-042 " "RrlZ “,"8-12 


920 DATA "T-12 *, *U-20 + 
"Vv-08 ","W-08 ","X-04 
",."Y-0B ","2-02 ","e-20 


5 CLEAR 2000:KEYOFF:COLOR 15,4, 
q 

10 A$=-"palavra”" :W=-14:F=1:TA=-200 
“'TE=TA 

40 CLS:LINEINPUT"Nome do 
r l (max 9 letras) ? 

50 PRINT:LINE INPUT"Nome 
ador 2 (max 9 letras) ? 

5 

60 IF LEN(AS)>9 OR LEN(B8)>9 TH 
EN 40 

70 CLS: PRINT"Qual o nível de di 
ficuldade”: INPUT" (número de pal 
avras 1-9)";C8 

90 IF C8<"1”" OR €C9>"9" 
100 C=VAL(CS) 

110 PRINT: INPUT"Número de jogad 
as (1-9)";T8 

130 IF TS<"1” 
O 

140 T=VAL(TS) 
150 IF C>1 THEN J8="8s”":1I8="com 

um espaço entre elas” :R3="FRASE 


jogado 

"“1;A8 

do jog 
*.B 


THEN 70 


OR T8>"9" THEN 11 


160 CLS: PRINTAS;", é a mua vez. 




































INEaBES E E E Ea a a SS ss DS soil, 


".PRINT"Digite nua frase de" ;C; 
"palavra" ;J$;".” 
165 PRINT:PRINT"Se desejar ver 
as letras digitadas, pressione 
<0>, senão pressione <1>.”"; 
170 KS=INKEYS: IF KS$="" THEN 170 
175 IF KS<>"1” AND K3<>"0" THEN 
170 
180 IF KS="0" 
NT:PRINT"? "; 
190 KS=INKEYS:IF KS$="" THEN 190 
195 IF KS<>CHR$ (13) THEN 5$=55+ 
KS:GOTO 190 ELSE 220 
200 PRINT:LINEINPUT”? 
220 L=LEN(SS) : PRINT 
230 IF L=0 THEN PRINT"Entrada à 


THEN 200 ELSE PRI 


":88 


legal - repita”:GOSUB 950:CLS:G 
OTO 160 
240 IF L>78 THEN PRINT"Entrada 


muito longa - repita”:GOSUB 950 
:«CLS:GOTO 160 

250 FOR N=1 TO L:IF MIDS(SS5,N,1 
)=CHARS (32) THEN D=D+1:GOTO 270 

260 IF MIDS(SS,N,1)<"A” OR MIDS 
(88,N,1)>"Z"ANDMIDS (8S,N,1)<>"Ç 
"THEN PRINT"Caracter ilegal - Tr 
epita”:GOSUB 950:CLS:D=0:GOTO 1 
60 

270 IF C=1 AND D=1 THEN PRINT"E 
Bpaços não são permitidos em um 
a única palavra - repita”: 
GOSUB 950:CLS:D=0:GOTO 160 

280 NEXT 

290 IF D<>C-1 THEN PRINT"Você d 


É possível transformar o programa 
em um jogo de palavras cruzadas? 

Embora nosso programa não possa 
ser transformado num jogo desse tipo, 
ele certamente mostra o caminho para 
que o leitor elabore seu próprio 
programa. 

Num jogo de palavras cruzadas, O 
jogador também deve descobrir quais 

| são as letras de palavras “escondi- 

| das”. A diferença é que no nosso jogo 
precisamos descobrir os caracteres de 
um cordão, enquanto no de palavras 
cruzadas, buscamos elementos de uma 
matriz alfanumérica. 

O tipo de pista que se dá ao jogador 
também é diferente. As instruções de 
um jogo de palavras cruzadas podem 
ocupar um espaço tão grande quanto 

| Os textos de um pequeno jogo de aven- 
tura. À disposição espacial das letras 
na tela também é muito importante. No 
programa, devemos correlacionar as 
coordenadas X e Y da tela aos núme- 
| ros de linha da matriz de letras. 





eve digitar”";C;"palavras *;I8;* 
- repita” :GOSUB 950:CLS:D=0:G0 

TO 160 

300 28="" 

310 Z3=STRING3(L,"*") 

320 CLS: PRINTAS; TAB (25) BS:PRINT 

TA;"pontos”; TAB(25); TB;“pontos* 
330 LOCATE 7,3:PRINT"Valores do 
Bs caracteres” 

340 Q9="":FOR N=1 TO 28:READ G3 
*09=058+G5+STRINGS (4+ (N/5=INT (N/ 
5)),32): NEXT: PRINTOS:RESTORE 
350 LOCATE 0O,11:PRINTCA ";R$S;* 
contém”";L;“letras”: PRINTZS 

360 LOCATE 0,21:PRINTSPC(77):LO 
CATE 0,21:PRINT"XX-Adivinha let 
ra ZZ-Adivinha frase”: INPUT” 

A-Z Compra letra ";D8 

900 DATA A-20,B-08,C-12,7-06,D- 
20,E-20,F-12,6-08,H-08,1-16,J-0 
8,K-02,L-10,M-12,N-12 

910 DATA 0-20,P-08,0-08,R-12,8- 
20,T-12,U-16,V-08,W-02,X-08,Y-0 
2,2-06,..-20 


Lab) (cê) 
10 R$ = "PALAVRA" :W = 14:F = 1: 
TA = 200:TB = TA 


40 HOME : INPUT “NOME DO JOGAD 
OR 1 (MAX 9 LET) “;AS 

50 PRINT INPUT "NOME DO JOGA 
DOR 2 (MAX 9 LET) ";BS 


60 IF LEN (AS) > 9 OR LEN (B 
8) > 9 THEN 40 


70 HOME : PRINT "NIVEL DE DIFI 
CULDADE” : INPUT " (NUMERO DE PAL 
AVRAS 1-9)? ";CS 

90 IF cg < "l” OR CS > *9* THE 
N 70 

100 C = VAL (C8) 


110 PRINT : INPUT "NUMERO DE J 
OGADAS (1-9)? ";TS 

130 IF TS <TI" OR TS > 
EN 110 

140 T = VAL (T8) 

150 IF € > 1 THEN Jã = *5*:I13 

= "COM UM ESPACO ENTRE ELAS":AR$S 
160 HOME : PRINT AS", E A BUA 

VEZ.": PRINT "DIGITE SUA FRASE 

DE ":C;”" PALAVRA" ;JS;".”" 


"9" TH 


165 PRINT : PRINT "SE DESEJAR 

VER AS LETRAS DIGITADAS, PRESSI 

ONE <0>, SENAO PRESSIONE <1l>.”; 
170 GET KS: IF KS$ < > *1” AND 
KS < > "0º" THEN 170 

180 K = VAL (K8S): PRINT : PRIN 

T 

185 88 = * *º 

190 GET KS: IF K = O THEN PRI 

NT K$; 

200 IF KS$ = CHARS (8) AND JLEN 
(88) > 1 THEN 83 = LEFTS3S (83, 
LEN (58) - 1): GOTO 190 


210 88 = 88 + K3: IF K8< > € 


HRS (13) THEN 190 


220 83 = MIDS (83,2, LEN (53) 
- 2):L = LEN (88) 
230 IF L = O THEN PRINT PRI 


"ENTRADA ILEGAL - REPITA”; € 
GOSUB 950: HOME : GOT 


NT 
HRS (7);: 


T 





O 160 , 
240 IF L > 40 THEN PRINT : PR 
INT "ENTRADA MUITO LONGA - REPI 


TA”; CHRS (7);: GOSUB 950: HOME 
GOTO 160 

250 FOR N= 1 TOL: IF MID$( 

S$,N,1) = CHR$ (32) THEN D = D 


+ 1: GOTO 270 
260 IF MIDS (8S3,N,1) < 
MIDS (93,N,1) > *Z”" THEN PRI | 
NT : PRINT "CARATER ILEGAL - RE. 
PITA”: GOSUB 950: HOME :D = 0: - 
GOTO 160 , 


“A” OR 


270 IFC=1ANDD=1THENP 
RINT : PRINT "ESPACOS NAO SAO P. 
ERMITIDOS EM UMA UNICA PAL. 
AVRA! - REPITA”: GOSUB 950: HOM 
E :D = O: GOTO 160 

280 NEXT | 
290 IFD< >C-1 THEN PRIN| 
T : PRINT "VOCE DEVE ENTRAR ";C 
;”" PALAVRAS ";18;” - REPITA": G. 
OSUB 950: HOME :D = O: GOTO 160 


300 Z8 = * * 







310 FORN=1TOL:Z5=Zz58+"] 
*": NEXT | 
320 HOME : PRINT AS; TAB( 25); 

BS: PRINT TA;”" PONTOS”; TAB( 25. 
J;TB;”" PONTOS” 

330 VTAB 4: HTAB B: PRINT "VAL. 


ORES DOS CARACTERES”; 

340 Q$ = " ": FOR N = 1 TO 28: 
READ G8:08 = Q58 + G5 + * ne 
NEXT HTAB 40: PRINT QS: RESTO 
RE | 


350 VTAB 12: PRINT "A ";RS;" C 


ONTEM ";L;" LETRAS";: HTAB dO: 
PRINT Z5 
360 VTAB 22: CALL - 958: VTAB 
22: PRINT "XX-ADIVINHA LETEA 
ZZ-ADIVINHA FRASE": INPUT * 


A-Z COMPRA A LETRA ";D3 
900 DATA A-20,B-0B,C-12,D-20 | 
+, E-20,F-12,6-08,H-08 | 
910 DATA 1-16,J-08,K-02,L-10) 
+M-12,N-12,0-20,P-08,0-08,R-12, 
S-20 
920 DATA T-12,U-16,V-08,W-02,: 
X-04,7-02,º "44-06, 20 j 


O programa é muito parecido para | 
todos os microcomputadores, já que | 
não há gráficos que requeiram coman- | 
dos especiais para montá-los. Apenaso | 
início difere um potico em alguns casos, | 
No MSX e no TRS-Color é preciso re- 
servar espaço para as variáveis alfanu- | 
méricas que serão usadas. | 

A linha 10 define todas as variáveis | 
necessárias para o jogo. No TRS-Color, | 
os PEEK da linha 15 são utilizados mais 
tarde para evitar que algumas letras apa- 
reçam na tela, As linhas 20 e 30 do Spec- 
trum definem um UDG em branco pa- 
ra a tabela de letras. | 

As linhas 40 e 70 dão as mensagens 
iniciais do jogo. O nome dos jogadores 
é chamado pelas linhas 40 e 50. A linha 
60 verifica se eles não são muito com- 
pridos para o espaço disponível na tela. 





O número de palavras da frase é esco- 
lhido na linha 70. 

As linhas 80 a 100 fazem verificações 
com a finalidade de se certificar de que 
o número de palavras por frase está den- 
tro dos limites do programa. 

Esse número é representado pela va- 
riável C$. A linha 80 (quando existen- 
te) verifica se a entrada é de apenas um 
caractere; a linha 90 checa se o valor di- 
gitado está entre os numeros 1 e 9. A li- 
nha 100 converte esse valor para uma 
variável numérica. 

As linhas 110 a 140 estão relaciona- 
das ao número de jogadas escolhido. A 
linha 110 apresenta a mensagem e ob- 
tém a resposta (variável T$). As linhas 
120 e 130 são similares às linhas 80 e 90, 
A linha 140 converte o valor para uma 
variável numérica. 








Se a frase for constituída de mais de 
uma palavra, a linha 150 diz ao joga- 
dor que coloque apenas um espaço en- 
tre cada palavra. R$ é definida como 
“FRASE” para uso posterior. 

O programa passa, então, para a roti- 
na de entrada da frase que um dos joga- 
dores deverá adivinhar. Ela vai da linha 
160 até a 220 e fornece instruções para 
o jogador que vai digitar a frase. Se ele 
selecionar O, a frase aparecerá na tela; 
caso contrário, ela permanecerá invisi- 
vel. A frase é armazenada na variável SS. 

As linhas 230 a 290 conferem a frase 
para verificar se está de acordo com as 
regras. Se ela não tiver nenhum carac- 
tere, isto é, se a tecla <ENTER> foi 
pressionada antes de se digitar qualquer 
letra, a linha 230 anuncia uma entrada 
legal e pede que se repita a operação. 


pe Fo. 
E dE E 





A linha 240 verifica o tamanho da frase 
e a 250 o número de espaços (que deve 
ser um a menos que o número de pa- 
lavras), 

As linhas 260 e 270 procuram carac- 
teres ilegais. Observe que apenas letras 
maiúsculas serão aceitas, sem acento. 
No MSX, pode-se usar o “Ç'. 

As linhas 300 e 310 são encarregadas 
de definir a variável Z$, que contém a 
sequência de asteriscos de número igual 
ao de letras de S$. 

A rotina final, das linhas 320 a 360, 
monta o que falta da tela principal, len- 
do a tabela de valores de linhas DATA 
e colocando a tabela na posição adequa- 
da. A sequência de asteriscos também 
é posicionada. A linha 360 apresenta as 
opções para o jogador que vai adivinhar E 
a frase. 
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| = | Apresentamos aqui novas rotinas 
APERFEICOE SEU para o seu banco de dados. Elas 


tornarão o programa mais eficiente, 


à = permitindo-lhe organizar 
| | melhor as informações que desejar. 
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O programa de banco de dados que 
desenvolvemos nos artigos das páginas 
68 e 81 é muito útil para armazenar in- 
formações. Não importa que sejam de- 
talhes de seu passatempo predileto, re- 
sultados de uma pesquisa, endereços de 
amigos e clientes ou qualquer outro ti- 
po de dado. Devidamente arquivados, 
eles poderão ser consultados, corrigidos, 
alterados, apagados e mesmo impressos 
em papel. 

Como qualquer outro programa de 
banco de dados, o nosso também não 
é perfeito para todas as aplicações pos- 
síveis. Para que você possa adaptá-lo da 
melhor maneira às suas necessidades, 
apresentamos algumas novas rotinas as- 
sim como sugestões para o aperfeiçoa- 
mento das já existentes. As rotinas, di- 
ferentes para cada computador, serão 
examinadas separadamente. 


Para os usuários do Sinclair Spec- 
trum, selecionamos duas rotinas: uma 
para a entrada contínua de registros e 
outra para impressão continua, 


| ENTRADA CONTÍNUA 


Estas linhas lhe permitirão dar entra- 
da aos registros continuamente, sem 
precisar retornar ao menu. Elas impe- 
dem também que um cordão nulo — 
que provocaria a volta ao menu — seja 
aceito. Pressione <ENTER> quando 
completar a entrada dos dados. 


2000 CLS : LET C=V 

2110 FOR N=V TO A: PRINT  INVER 
SE V;AT V+N*2,0;NS(N);AT V+N*2, 
12; FLASH V;"?”": INPUT "(ate *; 
A(N);”" caracteres)", LINE AS(C, 
B(N)+V TO B(N+V)): IF N=V AND A 
S(C,B(N)+V)=CHRS 32 THEN  RETUR 
N 

2115 PRINT AT V+N*2, 12;AS(C,B(N 
1+V TO B(N+U)): NEXT N 

2120 FOR F=V TO 150: NEXT EF: IF 
C=V THEN GOTO 2000 

2140 IF AS(C)>=AS(C-V) THEN GÔ 
TO 2000 

2150 LET XS=AS(C): LET AS(C)=AS 
(C-V): LET AS(C-V)=XS: LET C=C- 
UV: IF C=V THEN GOTO 2000 








vi ADIÇÃO DE NOVAS OPÇÕES 
E COMO MELHORAR AS ROTINAS 
JÁ EXISTENTES 


[o “IMPRESSÃO CONTÍNUA 
[o UMA NOVA ORGANIZAÇÃO 


IMPRESSÃO CONTÍNUA 





Como está, o programa possibilita a 
impressão apenas do registro em exame. 
Para imprimir a lista inteira, será neces- 
sário passar por todo o arquivo e co- 
mandar a impressão. Esta nova rotina 
faz o trabalho por você, iniciando pelo 
registro que está sendo exibido e impri- 
mindo todos os seguintes até o fim da 
lista. Se quiser imprimir todos os regis- 
tros, certifique-se de que está no regis- 
tro 1, antes de iniciar o processo, Para 
interromper a listagem, pressione qual- 
quer tecla. 

120 LET OP=1] 
3015 IF D-V=R THEN LET D=D-V: 
IF OP=6 THEN LET OP=1 
3020 IF AS(D,V)=CHRS 32 THEN L 
ET D=D-V: IF O0P=6 THEN LET OP= 


1 

3085 IF 0P=6 THEN LET D=D+V: G 

OTO 3010 

4060 IF D>A THEN LET D=PM: IF 

0P=6 THEN LET 0P=1 

4080 IF AS(D,V)=CHRS 32 THEN L 

ET D=PM: IF 0P=6 THEN LET 0P=1 

4165 IF OP=6 THEN LET MO=V: LE 

T D=D+MO: GOTO 4060 

9502 IF 0P=6 AND INKEYS="" THEN 
COPY : RETURN 

9505 PRINT  INVERSE V;AT 19,U;" 
impressao (C)ontinua”;TAB 31;" 

9585 IF VS="C” THEN COPY LET 

0P=6 


- u EESÉ Sat 


Apresentamos quatro rotinas para O 
seu TRS-Color: impressão contínua, 
reordenação do arquivo, procura por 
múltiplos campos e adaptação para 
acionadores de disco. 





IMPRESSÃO CONTÍNUA 


Com esta rotina, você poderá impri- 
mir todos os registros de uma só vez. Se- 
lecione a opção de impressão e escolha 
entre impressão contínua ou registro 
único. À impressão começa no registro 
que está sendo exibido na tela e vai até 
o fim da lista. 

Se você quiser imprimir todo o arqui- 


E , DO ARQUIVO 
ai BUSCA DE MÚLTIPLAS 

INFORMAÇÕES 
] O USO DO CONTROLADOR 
Aa DE DISCOS 


vo, não se esqueça que deve começar 
com o registro 1. 


1050 PRINT €385,"NUMERO DE CAMP 
OS (1-8) 77; 

1060 INS=INKEYS:IF INS<"1" OR IT 
N$>"8" THEN 1060 

1070 A=VAL (INS) :DIM A(A) ,NS(A) 
5070 IF D>NR AND G=1 THEN G=0:C€ 
H=-1:CP=0 ELSE IF D>NR THEN CP= 
0:GOTO 5230 


5105 IF CP=1 GOSUB 10040:GOTO 5 
160 

5210 GOSUB 10000:GOoTO 5160 

6025 IF CP=1 GOSUB 10040:GOTO 6 
080 

6130 GOSUB 10000: IF CP=1 THEN 
6080 ELSE 6030 

6140 IF D>NR THEN D=1:CP=Q 


10000 PRINT €449," AJUSTE A IMP 
RESSORA CONT”; STRINGS (36, 32 
): 

10010 IF INKEYS<>"C” THEN 10010 
10020 PRINT €448,"cONTINUA OU 8 
OMENTE UM REGISTRO?” ; 

10030 INS=INKEYS:IF INS<>"C” AN 
D INS<>"S8" THEN 10030 

10035 IF IN$="C” THEN CP=1 


REORDENAÇÃO DO ARQUIVO 





O programa original faz a ordenação 
dos registros sempre pelo mesmo cam- 
po (o primeiro). A nova alternativa, que 
aparecerá com o número 8 no menu, 
permite que o campo-chave para a orde- 
nação seja mudado. Depois da mudan- 
ça, o arquivo é reordenado e o campo- 
chave passa a ser O primeiro da lista. 
105 PRINT €388,"B-REORGANIZAR C 
AMPOS”" 

120 INS=INKEYS: IF INS<"1º OR IN 
8>"8" THEN 120 

150 ON IN GOSUH 1000,2000,6000, 
5000,7000,8000,9000, 11000 

11000 IF A=1 THEN PRINT” NAO PO 
S80 REORGANIZAR 1 CAMPO!” :FOR K 
=1 TO 5000: NEXT: RETURN 

11010 PRINT "NUM.DO CAMPO”,"NOM 
E” 

11020 FOR N=1 TO A:PRINT N.NS(N 
) : NEXT 

11030 PRINT:PRINT" 
ERO DO NOVO CAMPO 
5A;")”;: INPUT NC 
11040 NC=INT(NC):IF NC<2 OR NC> 
A THEN CLS:GOTO 11010 

11050 CLS:PRINT” TROCANDO E ORD 
ENANDO CAMPOS" 

11060 TS=NS (1) :NS(1)=NS (NC) :NS( 


DIGITE O NUM 
CHAVE (2 A” 











NC) =TS:T=A(1):A(I)=A(NC) :A(NC)= 

T 

11070 FOR N=1 TO NR:TS=AS(N,1): 

AS(N,1)=AS(N,NC) :AS(N,NC) =T$S:NE 
XT 

11080 FOR N=1 TO NR-1:K=N 

11090 FOR J=N+1 TO NR 

11100 IF AS(J,1)<AS(K,1) THEN K 
=] 

11110 NEXT:IF N<>K THEN FOR C=1 
TO A:TS=AS(K,C):AS(K,C)=AS(N,C 
)=TS:NEXT 

11120 NEXT:RETURN 





PROCURA POR MÚLTIPLOS CAMPOS 


Esta nova opção permite que você 
busque mais de uma informação por 
vez. Quando se seleciona a rotina de 
busca a partir do menu principal, deve- 
se responder, para cada campo, o que 
será procurado. Você pode procurar por 
quantos campos desejar. Se um deles 
não lhe interessar, simplesmente tecle 
< ENTER> e vá em frente. 








Em seguida, o computador pergun- 
tará se os dados especificados deverão 
estar presentes em todos os registros ou 
não. Se sua resposta for SIM, apenas os 
registros que contenham todos os dados 
especificados serão mostrados. Caso vo- 
cê responda NÃO, qualquer registro que 
contenha pelo menos um dos dados se- 
rá exibido. Se, por exemplo, você soli- 
citar o nome MARIA para o campo | 
e CAMPINAS para o campo 3, apenas 
pessoas que se chamem Maria E residam 
em Campinas serão apresentadas caso 
você tenha respondido SIM à pergunta 
anterior. Caso contrário, todas as pes- 
soas que se chamem Maria OU residam 
em Campinas serão listadas. 


5000 PRINT 6B,B$;"opcao”";BS;“de 
";B8;"procura” ;B8 

5010 BT=0:PRINT:FOR N=1 TO A:PR 

INT "PROCURA PELO QUE NO CAMPO” 
“PRINT N;”, ";NS(N);" 7?" 

5020 LINEINPUT SS(N):IF SS5(N)<> 
"" THEN BT=BT+] 

5025 NEXT:IF BT=0 
ad IF BT<2 THEN 
5030 PRINT:PRINT”" TODOS OS DADO 
8 DEVEM ESTAR SI- MULTANEAMENT 
E NO MESMO REGISTRO (8/N) ?”"; 

5040 INS=INKEYS:IF IN$S<>"S” AND 
INS<>"N”" THEN 5040 

5050 CLS:BT=0:IF IN$="S5" THEN B 

T=] 

5090 FOR Z=1 TO A:PS=INSTR(AS(D 
.Z),.88(Z)):IF P9>0 AND BT=0 AND 
g8(Z)<>"" THEN Z=A:NEXT:GOTO 5 
100 

5093 IF PS8=0 AND BT=1 THEN Zr=A: 
NEXT:D=D+CH:GoTo 5070 

5096 NEXT:IF BT=0 THEN D=D+CH:G 

oTo 5070 

5230 CLS 2:PRINT * NENHUM REGI 
STRO COM”; :IF BT=1 THEN PRINT É 
21,” TODOS 08”, ELSE PRINT 621," 
ALGUM DOS” 
5231 PRINT " 
ADO” ; 

5235 FOR Z=1 TO A:IF 88(Z)="" T 
HEN 5245 

5240 PRINT 696+2*32,NS(Z);:PRIN 
T €107+2Z*32,88(Z); 

5245 NEXT:CP=Q 


THEN RETURN 
BT=0:GOTO 506 


DADOS FOI ENCONTR 


“O USO DO ACIONADOR DE DISCOS 


As linhas que se seguem fazem com 
que o programa trabalhe com o auxílio 
de um acionador de discos. Se você usa 
um gravador cassete, não as digite, pois 
as rotinas de carregamento e gravação 
serão alteradas. 

Antes de introduzir as novas linhas, 


Eq ss & dE e 


e ED == uu 








RREO TP ETTO MU! 


você deverá apagar as linhas 8060 a 
8070, 8150 a 8200 e 7090 a 7140, A ma- 
neira mais fácil de fazê-lo é digitar DEL 
nº inicial nº final. Por exemplo: DEL 
8060-8070. 

Para transferir dados da fita cassete 
para o acionador de discos, carregue o 
programa e faça as alterações da rotina 
de gravação (linhas até 7080). Carregue 
os dados e grave-os em disco. Apague, 
então, as linhas de 8060 em diante (só 
as especificadas antes). Por fim, digite 
as novas linhas da rotina de carregamen- 
to de dados. 


BO PRINT6292,"5-SALVAR ARQUIVO” 
90 PRINT €324,"6-CARREGAR ARQUI 
vo” 

1130 NEXT:R=INT(9000/(5+5*A))-1 
“PRINT "NUMERO MAXIMO DE REGIST 
ROS=";R 

1140 DIM AS(R,A):FOR I=1 TO 200 
O :NEXT: RETURN 

7000 CLS: PRINT” CERTIFIQUE-SE D 
E QUE O DRIVE ESTA LIGADO E 
O DISCO INSERIDO E PRESSIONE < 
ENTER> 

7010 IF INKEYS<>CHAS (13) THEN 7 
010 

7020 PRINT:PRINT” QUAL O NOME D 
O ARQUIVO 7"; : LINEINPUT FIS 
7030 IF LEFTS(FIS,1)<"A”" OR LEF 
TS (FIS,1)>"Z”" THEN 7020 

7040 OPEN "0”,41,FIS+"/DAT”:CLS 
6:PRINT 6232," GRAVANDO ";FIS; 
7050 WRITE 41,R,A,NR 

7060 FOR N=1 TO A:WRITE 61,N3S(N 
7070 FOR C=1l TO NR:FOR N=1 TO A 
'WAITE 41,AS(C,N):NEKT N,C 

7080 CLOSE41:RETURN 

8030 PRINT 8665," SELECIONE O DIS 
CO, PRESSIONE C<ENTER>" 

B040 IF INKEYS<>CHAS9 (13) THEN 8 
040 

B050 IF R>0 THEN RUN 9210 

BOBO PRINT:PRINT” QUAL O NOME D 
O ARQUIVO 7";:LINEINPUT FIS 
8090 IF LEFTS(FIS,1)<"A”" OR LEF 
TS(FI9S,1)>"Z" THEN 8080 

8100 OPEN "I”,41,FIS+"/DAT” 
8105 INPUT4AI,R,A,NR 

B110 DIM A(A),NS(A) ,AS(R,A) 

8120 FOR N=1 TO A: INPUT41,NS(N) 
A (N) :NEXT 

8130 FOR C=1 TO NR:FOR N=1 TO A 
“INPUTAIL,AS(C,N) :NEXT N,C 

B140 CLOSE41:RETURN 









IMPRESSÃO CONTÍNUA 


Apresentamos três rotinas a mais pa- 
rao MSX. Com elas você poderá fazer 
uma listagem contínua dos seus dados, 
reorganizar o arquivo e buscar várias in- 
formações ao mesmo tempo. 

A rotina para impressão contínua 
permite que vários registros do seu ar- 


quivo sejam listados de uma só vez. O 
registro a partir do qual você quer co- 
meçar a listagem deve estar sendo exi- 
bido na tela. Selecione, então, a opção 
[lmprimir e, a seguir, a opção [Cl]onti- 
nua. Todos os registros a partir deste se- 
rão listados. 

Com a opção [Registro você pode 
imprimir apenas aquele que está sendo 
mostrado. Não se esqueça de que, para 
listar todo o arquivo, você deve ter o re- 
gistro nº 1 da tela. 


5070 IFD>NRANDG=1THEN G=0:CH=-1 
'CP=0 ELSEIFD>NRTHEN CP=0 :GOTO 
5230 

5105 IF CP=1 THEN GOSUB 10040:G 

oTO 6080 

5210 G08UB10000:G0TO5S160 

6025 IF CP=1 THEN GOSUB 10040:G 

OTO 6080 

6130 GOSUB10000:IF CP=1 THEN 60 
BO ELSE 6020 

6140 IFD>NARTHEND=1:CP=Q 

10030 PRINT:LOCATE 1:PRINT"IMPR 

ESSÃO [CJONTINUA OU [RJEGISTRO? 
Dr a 


10035 INS=INKEYS: IFIN$<>"C"ANDI 
NS<>"R"THEN10035 
10037 IFINS="C" THEN CP=1 





REORGANIZAÇÃO DO ARQUIVO 


Esta nova opção permite que se tro- 
que o campo-chave para a ordenação do 
arquivo. O programa original tomava 
automaticamente O primeiro campo pa- 
ra fazer a ordenação alfanumérica dos 
registros. Com a possibilidade de trocar 
esse campo, ficará fácil, por exemplo, 
organizar por autor um arquivo de li- 
vros que estava indexado por título da 
obra. A operação pode ser revertida a 
qualquer momento. O novo campo- 
chave aparecerá em primeiro lugar na 
listagem dos campos. 


105 LOCATE 9,19: PRINT"B:-REORGA 
NIZAR O ARQUIVO” 
110 LOCATE 14,22: PRINT"OPÇÃO: ” 


120 INS=INKEYS:IF INS<"1"ORINS> 
"8"THEN120 

150 ON IN GOSUB 1000,2000,6000, 
5000,7000,8000,9000,11000 

11000 IF A=1 THEN PRINT:PRINT"I 
MPOSSIVEL REORGANIZAR APENAS 1 
CAMPO!":FOR K=1 TO 5000:NEXT:RE 
TURN 

11010 PRINT: PRINT"CAMPO N.”,"NO 


ME” : PRINT 

11020 FOR N=1 TO A:PRINTN,NS(N) 
NEXT 

11030 PRINT:PRINT"DIGITE O NUME 


NOVO CAMPO CHAVE”: PRINT" ( 
2 A";Ã;")”;: INPUT NC 

11040 IF NC<2 OR NC>2A THEN CLB: 

Goro 10010 

11050 CLS:LOCATE7,18:PRINT"REOR 


Como modificar o programa para tra- 
| balhar com arquivos em disco? 

Os micros das linhas TRS-Color e 
MSX podem usar discos flexíveis co- | 
mo meio magnético de armazenamen- | 
to de dados. Os programas de INPUT, | 
contudo, destinam-se a equipamentos 
que utilizam fitas cassete. 

Se quisermos usar em discos nos- 
so programa para gerar e controlar ar- 


| quivos, precisaremos modificar as se- 


“ções que abrem estes arquivos e as que | 
gravam e recuperam dados deles. O | 
procedimento é necessário porque o 
programa não modifica registros isola- 
dos no arquivo gravado, e sim na me- 
mória do computador. Um conjunto de 
registros é criado na memória e, de- 
“pois, gravado na fita. Quando quere- 

mos alterar alguma coisa, todo o blo- | 
co é trazido para a memória, onde o 
programa faz a edição. Depois que o 
processo se completa, gravamos o blo- 
co em fita. 

Para fazer essas modificações, O | 
usuário precisa, naturalmente, conhe- | 
cer os comandos correspondentes pa- 
ra manipulação de arquivos em disco. 
Estes deverão ser do tipo sequencial, 
como os da fita. 





GANIZANDO E REORDENANDO” : PRINT: 
PRINTTAB(15)"O ARQUIVO” 

11060 SWAP NS(1),NS(NC) : SWAP A( 
1) A(NC) 

11070 FOR N=1 TO NR:SWAP AS(N,1 
) AS (N,NC) :NEXT 

11080 FOR N=1 TO NR-1:K=N 

11090 FOR J=N+1 TO NR 

11100 IF AS(J,1)<AS(K,1) THEN K 
=J 

11110 NEXT:IF N<>K THEN FOR C=1 
TO A:SWAP AS(K,C) AS(N,C):NEXT 
11120 NEXT:RETURN 





BUSCA DE MÚLTIPLAS INFORMAÇÕES 


Com a rotina dada a seguir você terá 
a alternativa de procurar por mais de 
uma informação de cada vez. Quando 
selecionar a opção de busca, você preci- 
sará especificar as informações que dese- 
ja em cada campo do registro. Se um de- 
terminado campo não lhe interessa, sim- 
plesmente tecle < RETURN>. Depois, 
o computador perguntará se os dados 
especificados devem estar simultanea- 
mente em cada registro ou não. A res- 
posta afirmativa corresponde a um E na 





busca — ou seja, o registro deve conter 
isto E isto E aquilo. O contrário corres- 
ponde a um OU. Vejamos um exemplo. 
Você procura por MACHADO DE As- 
SIS no campo AUTOR e ROMANCE 
no campo GÊNERO LITERÁRIO. Se 
sua resposta para a pergunta anterior for 
SIM, apenas os romances de Machado 
de Assis serão listados. Se sua resposta 
for NÃO, todos os livros de Machado e 
todos os romances serão listados. 


5000 PRINT"BUSCA DE INFORMAÇÕES 


4010 BT=0:PRINT:FOR N=1 TO A:PR 
INT" PROCURAR O QUE EM ";NS(N);" 
7 ado 88 (N)j="" 

5020 LINEINPUTSS(N) :IF SS(N)<>” 
"” THEN BT=BT+1 

S$025 NEXT:IF BT=0 THEN RETUAN 
8027 IF BT=1 THEN BT=0:GOTO 506 


18 APLICAÇÕES 18 


O 

5030 PRINT:PRINT:PRINT"TODOS 05 
DADOS DEVEM ESTAR PRESENTES 
SIMULTANEAMENTE? "; 

5040 INS=INKEYS: IF IN$S<>2"8” 
INS<>"N” THEN 5040 

5050 CLS:BT=0:IF INS="S" 

T=1 

5090 FOR Z=1 TO A:PS=INSTRIAS(D 
Z) 88(Z)):IF PS>0 AND BT=D AND 
SS(2)<>"” THEN Z=A:NEXT:GOTO 5 

100 

5093 IF PS=0 AND BT=1 

NEXT :D=D+CH:GOTO 5070 

5096 NEXT:IF BT=0 THEN D=D+CH:G 

oTO 5070 

5230 CLS:LOCATE 5,10:PRINTONENH 

UM REGISTRO COM ";:IF BT=1 THEN 
PRINT"TODOS 0S" ELSE PRINT ALG 

UM DOS” 

5235 PRINT"FOI ENCONTRADO!” :CP= 

Ú 


AND 


THEN B 


THEN Z=àA: 
































Para o Apple II, temos quatro roti- 
nas. As três primeiras possibilitam a im- 
pressão contínua de registros, a reorga- 
nização do seu arquivo e a busca de vá- 
rias informações ao mesmo tempo. A 
última delas melhora rotinas já existen- 
tes no programa, tornando-o, desse mo- 
do, mais completo. 





IMPRESSÃO CONTÍNUA 


Esta pequena rotina permite que os 
registros sejam listados em sequência, e 
não apenas um de cada vez. Deixe na te- 
la o primeiro registro a ser impresso € 
escolha a opção de impressão. Em se- 
guida, tecle € para a impressão conti- 
nua. Todos os registros, a partir do que 
está na tela, serão listados. Para a lista- 
gem de todo o arquivo, deixe o registro 
1 na tela e proceda como foi explicado. 


10017 VTAB 23: HTAB 5: CALL - 
958: PRINT "IMPRESSAO ”;: INVE 
RSE : PRINT "C”;: NORMAL PRIN 
T "ONTINUA OU ”;: INVERSE PRI 
NT "BR”",: NORMAL PRINT "EGISTR 
Do 2”s 
10018 GET INS: IF INS < » Ts 
AND INS < > "R” THEN 10018 
10025 IF INS = ºC” THEN E = D; 
FOR D = E TO NR 
IF INS = "C”" THEN NEXT 


10052 
'D = E 


REORGANIZAÇÃO DO ARQUIVO 


O programa original usava o primei- 
ro campo do arquivo como campo- 
chave para a ordenação dos registros. 
Com esta rotina, você podera trocar O 
campo. Selecione a opção 8 a partir do 
menu principal e especifique qual o no- 
vo campo-chave. O arquivo será, então, 
reordenado de acordo com a escolha fei- 
ta. O novo campo-chave aparecerá no 
topo da lista de campos. 





o 
| 


105 PRINT HTAB 10: PRINT "B: 
-REORGANIZAR O ARQUIVO” 

110 VTAB 23: HTAB 15: PRINT "O 
PCAO: *; 

130 TF INS/& FI" ORVINS 2 CH 
THEN 110 

150 ON IN GOSUB 1000,2000,6000 


,5000,7000,8000,6520,11500 


11500 IF A = 1 THEN VTAB 10: 

HTAB 9: PRINT "IMPOSSIVEL REORG 

ANTZAR": PRINT TAB( 13)" APENAS 
1 CAMPO!": FOR K = 1 TO 3000: 

NEXT RETURN 

11510 PRINT PRINT "CAMPO NO. 
" , "NOME ” 

11520 FOR Z=1 TOA: PRINT KXZ, 

NS(Z): NEXT 

11530 PRINT PRINT "DIGITE O 


NUMERO DO NOVO CAMPO CHAVE”: PR 


INT "(DE 2 A ":;A;7)";* INPUT NC 
t 

11540 IF (NCt < 2) OR (NC? 2 A 
) THEN HOME GOTO 11510 

11550 HOME VTAB 10: HTAB 6: 
PRINT "AGUARDE A REORGANIZAÇÃO 


": PRINT TAB( 9)"E ORDENACAO D 
O ARQUIVO” 


11560 TS = NS(1):NS(1) = NS(NCt 


J:NS(NC?) = TS:T = A(I)J:A(I) = 
A(NCI) :A(NCê) = T 

11570 FORN = 1 'TONR:TS=aAS( 
N,.1):AS(N,1) = AS(N,NC&) :ASCN,N 
Ct) = TS: NEXT 

11580 FOR N = 1 TO NR - 1:K = 
N 

11590 FOR J = N+ 1 'TONR 
11600 IF AS(J,1) < AS(K,1) THE 
NK = 

11610 NEXT : IF N< > K THEN 


FOR C = 1 TO A:TS = AS(K,C):AS 
(K,C) = AS(N,C):AS(N,C) = TS: N 
EXT 


11620 NEXT RETURN 





BUSCA DE MÚLTIPLAS INFORMAÇÕES 


Esta é uma rotina destinada a agili- 
zar a consulta ao seu arquivo de dados, 
permitindo-lhe procurar por mais de 
uma informação de cada vez. Quando 
você solicitar a opção de busca, preci- 
sará especificar as informações que de- 
seja em cada campo. Se um campo não 
lhe interessa, simplesmente tecle < EN- 
TER>. Depois, o computador pergun- 
tará se os dados especificados devem es- 
tar simultaneamente em cada registro ou 
não. A resposta afirmativa fará com que 
apenas os registros que contêm todos os 
dados especificados sejam apresentados. 
A resposta negativa levará todo registro 
que contenha ao menos um dos dados 
a ser listado. 


FOR 
"PRO 


5000 DD = 1:BT = O: PRINT : 
X = 1 TO A: PRINT : PRINT 
CURAR O QUE EM ";NS(X); 

5010 INPUT SS(X): IF SS(X) < 





> "”" THEN BT = BT +1 


5020 NEXT IF BT = O THEN RE 
TURN 

5025 IF BT = 1 THEN BT = O: GO 
TO 5040 

5030 VTAB 21: HTAB 1: PRINT "T 


ODOS 08 DADOS DEVEM ESTAR PRESE 


NTES EM CADA REGISTRO? (S/N) 
5035 GET INS: IF INS < >"sg” 

AND INS < > "N” THEN 5035 

5037 IF INS = "Nº THEN BT = 0 

5040 VTAB 23: HTAB 13: PRINT ” 
PROCURANDO. ..”; 

5050 FOR XX = DD TO NR 

5052 FOR Z=1TOA: IF SS(Z) 

= "”" THEN 5060 

5054 PS = (SS(Z) = LEFT$S (AS(X 
X,Z), LEN (8S$(Z)))): IF PS AND 

( NOT BT) THEN Z = A: NEXT : GO 
TO 5065 

5056 IF ( NOT PS) AND BT THEN 

Z = A: NEXT : NEXT : GOTO 5070 

5060 NEXT : IF BT = O THEN NE 
XT : GOTO 5070 

5065 FL = 1:D = XX: GOSUB 6020: 
GoTo 5200 

5070 JIF FL = O THEN VTAB 21: 

HTAB 1: CALL - 958: PRINT "NAO 


ENCONTREI NENHUM REGISTRO COM 


os DADOS SOLICITADOS!”: FOR 
X = 1 TO 5000: NEXT GoTO 509 
O 

5090 FL = O: RETURN 

5200 TF XX = NB THEN 50/70 

5210 VTAB 15: PRINT "CONTINUO 
PROCURANDO? (S/N) ";: GET INS 


MELHORE AS ROTINAS EXISTENTES 


Estas linhas tornam seu programa de 
banco de dados mais completo. Com 
elas você poderá especificar o slot e a 
unidade de disco que usará para a gra- 
vação e o carregamento dos dados. A 
opção padrão é slot 6 e drive 1. Um se- 
gundo drive poderá ser acionado dire- 
tamente do programa. 

Alteramos ainda a rotina de detecção 
de erros. Ela está mais explícita em re- 
lação à não existência de um arquivo es- 
pecificado para a leitura de dados. E 
também mais equipada para prevenir 
que qualquer outro erro (a seleção de 
um drive que não existe, por exemplo) 
interrompa seu programa e provoque a 
perda de dados. 


22 88 = 6:DR = 1 
25 ONERR GOTO 11000 


1030 IF R > O THEN CLEAR :D3 
= CHARS (4):IN = 1:55 = 6:DR = 
1: HOME : GOTO 150 

1050 VTAB 3: HTAB 5: PRINT "NU 

MERO DE CAMPOS (1-8): ”"; 

1060 GET AS: IF AS > "B” OR AS 
< "1º" THEN 1060 

1070 PRINT AS:A = VAL (AS): D 
IM A(A),NS(A) 

3010 VTAB 23: CALL - 958: PRI 


























NÃO PERCA SEUS DADOS 

Às vezes, por descuido ou erro de 
digitação, o programa é interrompido 
por uma mensagem de erro. Se execu- 
tarmos o programa de novo, usando 
RUN, todas as variáveis criadas pelo 
programa serão apagadas. 

A saida para o problema está em 
evitar o comando RUN e voltar a exe- 
cutar o programa de outro modo. 

Em geral, é possível encontrar um 
ponto onde o programa recomeça co- 
mo se nada tivesse acontecido. Na 
maioria das vezes, este ponto corres- 
| ponde à parte que cuida do menu. Pa- 
ra executar o programa novamente, 
bastará, então, anotar o número da li- 
nha e usar o comando GOTO. 


NT "NUMERO DO CAMPO A SER MODIF 
ICADO =>"; 
3020 GET CPS:CP = VAL (CPS) 
3030 IF CP > AORCPÃG<I THEN 
POKE 34,0: RETURN 

“ 7010 VTAB 15: HTAB 5: PHINT "8 
LOT ":SS; CHARS (8);: GET 853: 1 
F 9588 = CHAS (13) THEN 585 = 
STARS (58) 
7015 PRINT 585:5S = VAL (555) 


: IF 88 < 1 OR 88 > 7 THEN 7010 
7020 VTAB 17: HTAB 5: PRINT "D 
RIVE ";DR; CHARS (8B);: GET DAS: 
IF DR$ = CHR$S (13) THEN DRS = 
STARS (DR) 

7022 PRINT DRS:DR = VAL (DBS) 
: IF DR < 1 OR DR 2 2 THEN 7020 
7025 


PRINT PRINT DS;"OPEN ;A 
R$/”,9",88;",D";DR: PRINT D$S:"D 
ELETE" ; ARS 
B020 HOME CLEAR :DS = CHARS 
(4) : IN = 6:58 = 6:DR = 1 
8050 VTAB 15: HTAB 5: PRINT "S 
LOT ";58S; CHARS (8);: GET 8853: T 


F 8858 = CHRS (13) THEN 555 = 
STRS (55) 

8055 PRINT SS$:SS = VAL (585) 
- IF 88 < 1 0R SS > 7 THEN BOSO 
B060 VTAB 17: HTAB 5: PRINT "D 

RIVE ";DKR; CHARS (8);: GET DRS$: 
IF DRS = CHARS (13) THEN DRS = 
STARS (DR) 

8065 PRINT DRS:DR = VAL (DRS$) 

IF DR < 1 OR DR > 2 THEN B060 


8070 PRINT PRINT DS;"OPEN";A 

R$:",8":8S;",D";DR 

11000 IF PEEK (222) < > 5 TH 

EN VTAB 24: HTAB 13: PRINT "HO 

UVE UM ERRO!":: FOR 1 = 1 TO lo 

00: NEXT : GOTO 30 

11010 PRINT DS;"CLOSE” 

11020 VTAB 24: HTAB B: PRINT ” 
ESTE ARQUIVO NÃO EXISTE!”";: FOR 
I = 1 TO 1000: NEXT HOME : G 


OTOo 150 












40 LOOP LDA 4300 


APPLE E TK-2000: 
EFEITOS SONOROS 


Os usuários do Apple ressentem-se, 
sem dúvida, da ausência de um coman- 
do em BASIC para produzir sons. Essa 
limitação pode ser contornada com o 
uso de rotinas em código de máquina, 

Estalidos ou “cliques” produzidos no 
alto-falante constituem o máximo que 
se pode obter com um programa BA- 
SIC, no Apple, em matéria de som. Pa- 
ra isso (tanto no Apple quanto no 


Os usuários do TK-2000 podem re- 
correr ao mini-Assembler embutido no 
micro. O míini-Assembler, contudo, não 
aceita rótulos, seguindo outra listagem 
com os endereços já calculados. Ao con- 
trário da listagem anterior, esta não é re- 
locável na memória. 


TK-2000), basta que façamos referência 0320- LDA 4500 
à posição de memória -16336 por meio 0322- STA  SEF 
de um comando PEEK: 0324- LDA 4500 


X = PEEK(-16336) 


Quando testamos o valor desse ende- 
reço especial, o cone do alto-falante se 
move — para dentro e para fora — uma 
vez. Se quisermos produzir notas musi- 
cais, precisaremos imprimir a esse mo- 
vimento uma velocidade que somente 
programas em linguagem de máquina 
permitem. Controlando a velocidade 
com que o cone do alto-falante se move 
para frente e para trás, poderemos con- 
trolar também a frequência da nota mu- 
sical ou do ruído emitido. Quanto mais 
rápido for o movimento do cone, mais 
agudo será o som. 





COMO CONTROLAR O ALTO-FALANTE 


A rotina em Assembly fornecida a se- 
guir produz um som que vai se tornan- 
do cada vez mais agudo. Use nosso As- 
sembler para montá-la na memória. 


10 ORG B0OQ 
20 LDA 4500 
30 STA SFF 


50 STA 8C030 
60 LDX SFF 
70 PAUSE NOP 
BO NOP 

90 NOP 

100 NOP 

110 DEX 

120 BNE PAUSE 
130 DEC SFF 
140 BEQ FIM 
150 JMP LOOP 
160 FIM RTS 
170 END 





A O up 


O comando SOUND do TK-2000 tem 
certas limitações. Já o Apple não possui 
um comando BASIC para produzir sons. 
Veja como usar código de máquina para 
criar efeitos sonoros. 


0326 - STA 8C03J0 
0329- LDX SFF 
032B- NOP 

032C- NOP 

032D- NOP 

UIZE- NOP 

032F- DEX 

0330- BNE $032B 
0332- DEC SFF 
033d- BEQ 80339 
0336- JMP 80324 
0339- RTS 


Se você usar nosso Assembler para 
montar o programa, verá que ele emite 








DE 














LO ai 





mensagens de erro durante a montagem. 
Para corrigir esse defeito, modifique a 
linha 110: apague a segunda virgula de- 
pois do NOP e acrescente uma vírgula 
após o numero 234. 

Qualquer referência à posição de me- 
mória -16336 em decimal, ou $C030 em 
hexadecimal, provocará um movimen- 
to no alto-falante. Essa referência pode 
ser feita por meio de comandos como 
STA, INC ou DEC, O importante, de 
fato, é controlar a frequência com que 
isso ocorre no programa. 


COMO CONTROLAR 

O ALTO-FALANTE 

o O USO DE CONTADORES 
” O CONTROLE 
DA FREQUÊNCIA DA NOTA 


“O USO DE CONTADORES 





A posição de memória $FF — que fi- 
ca na página zero — vai ser usada co- 
mo contador. Para começar, colocamos 
nela o valor zero, pelos comandos LDA 
% $00 e STA SFF. Depois, o comando 
STA $C030 provoca' um primeiro mo- 
vimento do alto-falante. Note que, an- 
tes disso, foi colocado zero no registro 
A. Na realidade, o valor transferido de 
A para o endereço $C030 pelo coman- 





O a E 


cd COMO USAR LAÇOS VAZIOS 


PARA PRODUZIR PAUSAS 
DE DIVERSOS TAMANHOS 


[O UMA ROTINA DESOM 


PARA O APPLE 


do STA $C030 pode ser qualquer um: 
não faz a menor diferença. 

A seguir, a instrução LDX SFF co- 
loca no registro X o conteúdo da memó- 
ria $00FF. Esse tipo de endereçamento 
é denominado endereçamento direto em 
página zero. Sua vantagem consiste em 
permitir a especificação de um endere- 
ço com apenas um byte. Como um byte 
pode conter um número entre O e 255, 
o endereço especificado deve ficar num 
dos primeiros 256 bytes da memória — 
a chamada página um. 

As quatro instruções NOP (Nenhu- 
ma OPeração) utilizadas em seguida 
nada executam. Sua função é reduzir a 
velocidade do programa. A instrução 
DEX subtrai uma unidade do valor de 
X. Se o resultado da subtração não for 
igual a zero, a instrução BNE manda o 
processador de volta ao rótulo PAUSE. 
O laço que fica entre as linhas 70 e 110 
é repetido, então, 256 vezes — lembre- 
se de que zero menos um é igual a 255 
em linguagem de máquina. 

Em seguida, a instrução DEC SFF 
subtrai uma unidade do conteúdo do en- 
dereço SFF. Se a operação resultar em 
zero, a instrução BEQ FIM envia o pro- 
cessador para o rótulo FIM, onde o co- 
mando RTS termina a rotina. Se a ope- 
ração não resultar em zero, o programa 
segue seu curso natural e a instrução 
IMP LOOP envia o processador ao ró- 
tulo LOOP, para a produção de um no- 
vo movimento do alto-falante. 

Ássim, após a emissão do primeiro 
som, ocorre uma pausa equivalente a 
256 voltas do laço. O conteúdo de SFF, 
que inicialmente é zero — equivalente 
a 256, em código de máquina —, con- 
trola a duração da pausa, diminuindo 
em uma unidade após esta. Enquanto 
não chegar a zero, um novo movimen- 
to do alto-falante será produzido. Co- 
mo o conteúdo de $FF, que controla o 
tamanho da pausa, diminui a cada vol- 
ta do laço entre as linhas 40 e 150, o ta- 
manho da pausa entre dois movimentos 
do alto-falante também diminui. Dessa 
maneira, a frequência do som produzi- 
do vai aumentando, ou seja, o som vai 
se tornando cada vez mais agudo, 

No TK-2000, o som é produzido por 
intermédio do alto-falante da TV, Já no 
Apple um dispositivo sonoro que está 








| 
| | 
| 
| , 


embutido no próprio computador emi- 
te o ruído — e a qualidade do som dei- 
xa a desejar. 





“A VEZ DO APPLE 


A rotina de produção de ruídos que 
apresentamos a seguir pode ser utiliza- 
da a partir de programas BASIC, equi- 
valendo ao comando SOUND dos mi- 
cros da linha TK-2000. 

Ela permite ao usuário do Apple pro- 
duzir notas musicais em seus programas 
sem ter que programar uma rotina em 
linguagem de máquina para cada novo 
efeito sonoro. 


ss 


ORG 800 
o LDY 4500 
30 SOM LDX $385 
40 INC 5C030 
50 PAUSET DEY 
60 BNE PAUSES 
70 DEC 5384 
B0 BEQ FIM 
90 PAUSESE DEX 
100 BNE PAUSET 
110 JMP SOM 
120 FIM RTS 


[ol 
Embora o TK-2000 dispense esse ti- 


po de rotina, seus usuários podem que- 
rer montá-la para aprender ou, simples- 





mente, compará-la ao comando 
SOUND. 

0320- LDY 4300 
0322-  LDX 350385 
0325- INC  $C030 
0328- DEY 

0329- BNE 50330 
032B- DEC 50384 
032E-  BEQ 50336 
0330-  DEX 

0331- BNE  $0328 


O MÍNI-ASSEMBLER 
O míni-Assembler é um programa ÀAs- 
sembler simplificado, mas extremamen- 


te útil. Ele está disponível no TK-2000 | 


bem como em microcomputadores Ap- 

ple que tenham o INTEGER BASIC dis- 

ponível em ROM ou numa placa de ex- | 

pansão de memória. Sua principal limi- | 
| tação é não aceitar rótulos. 








JMP 
ARTS 


0333- 80322 


0336- 


Após a definição do endereço inicial, 
o comando LDY 4 $00 coloca zero no 
registro Y, que será utilizado como con- 
tador. Não se esqueça de que zero equi- 
vale a 256. 

O endereço $385 conterá a tonalida- 
de da nota emitida — em outras pala- 
vras, seu valor vai estabelecer o tama- 
nho de um laço de pausa para contro- 
lar a frequência do movimento do alto- 
falante. Assim, o conteúdo dessa posi- 
ção é colocado em X, que também será 
usado como contador. 

A instrução INC $C030 produz um 
movimento do alto-falante. A seguir, O 
programa apresenta um laço complexo, 
controlado por três contadores. Estes es- 
tabelecem tanto a frequência quanto a 
duração do som emitido. Vejamos, en- 
tão, como o laço funciona. 

Inicialmente, a instrução DEY, na li- 
nha 50, subtrai uma unidade do conteú- 
do de Y. A instrução seguinte — BNE 
PAUSES — faz com que o programa 
salte para a linha 90, enquanto o valor 
em Y não for reduzido a zero. A linha 
90, por sua vez, contém uma instrução 
DEX, que diminui o conteúdo de X em 
uma unidade. De maneira análoga, es- 
sa instrução é seguida por um BNE 
PAUSET, que retorna à linha 50 en- 
quanto o valor de X não chegar a zero. 
Assim, O processador fica ''preso”” em 
um laço, saindo apenas quando o con- 
teúdo de X ou Y for zero. 

Os contadores trabalham indepen- 
dentemente. Quando o valor de X se 
torna zero, o processador passa para a 
linha 110, que retorna ao rótulo SOM 
(JMP SOM), onde o valor de $385 (to- 
nalidade) é recolocado em X e se pro- 
duz um novo movimento do alto- 
falante. Assim, o valor inicial de X de- 
termina o tamanho da pausa entre dois 
ruídos, independentemente do que acon- 
tece com Y. 

O registro Y continha inicialmente o 
número 256 — ou zero. Portanto, após 
256 passagens pela linha 50, o valor de 
Y se torna zero, e o desvio da linha 60 
não ocorre. O programa, então, pros- 
segue na linha 70 — DEC $384 —, que 
diminui em uma unidade o valor em 
$384 (contador que controla a duração 
da nota). Assim, independentemente do 
que acontece com X, a cada 256 voltas 
do laço principal, o endereço $384 é di- 
minuído. Quando ele se torna zero, a li- 
nha 80 — BEQ FIM — envia o proces- 
sador para a linha 120, onde o coman- 
do RTS retorna ao BASIC. O valor ini- 
cialmente colocado em $0384 controla, 
dessa maneira, a duração da nota. 





Como usar o monitor-Disassembler? 

Uma ferramenta muito útil aos usuá 
rios do Apple, e indispensável aos do 
TK-2000, é o monitor-Disassembler. 


Embora não precisemos de monitor pa- | 
ra montar os programas código por có- 
| digo, ele nos permitirá verificar se a 
| montagem foi bem-sucedida. 
Para entrar no monitor, digite: 


CALL -151 
ou LM no TK-2000. 


Para listar um programa que come- 
ce no endereço 800, digite (após ter 
entrado no monitor): 


Agora você pode produzir sons em 
programas BASIC. Para ter uma idéia 
de como proceder, digite este exemplo: 


Cao 


10 FOR S = 1 TO 255 
20 POKE 900,50 

30 POKE 901,5 

40 CALL 800 

50 NEXT 


O programa consiste em um laço, on- 
de S tem a função de controlar a fre- 
quência da nota — de fato, S é propor- 
cional ao período da nota, que é o in- 
verso da frequência. 

O endereço 900, que corresponde a 
$384 em hexadecimal, contém a dura- 
ção da nota. A linha 20 estabelece esse 
parâmetro por meio de um POKE. A 
mesma instrução é usada na linha 30 pa- 
ra definir a tonalidade S da nota. O nú- 
mero 901 em decimal corresponde a 
$385 em hexadecimal. 

Finalmente, a instrução CALL 800 
chama a rotina em código, produzindo 
notas cada vez mais graves à medida que 
as voltas do laço se sucedem. 


Os usuários do TK-2000 podem com- 
parar a rotina em código com o coman- 
do SOUND apagando as linhas de 20 a 
40 e acrescentando: 


30 SOUND 5,50 
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Conheça os comandos que permitem 
ao computador “olhar” sua própria tela. 
Eles são muito úteis na manipulação 

de gráficos complicados e, sobretudo, 
em jogos onde ocorrem colisões. 


Ao criar uma tela gráfica detalhada, 
como garantir que uma figura não coin- 
cida com outra já presente? 

Uma alternativa seria tomar nota das 
áreas da tela que estão sendo ocupadas. 
Mas a tarefa, além de fatigante, muitas 
vezes é impossível — como no caso de 
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gráficos em movimento. E esse tipo de 
problema se coloca sempre que progra- 
mamos um jogo, onde, por exemplo, 
naves e alienígenas movem-se pela ga- 
láxia ou robôs tentam sair de um labi- 
rinto. Nos dois casos, precisamos nos 
assegurar de que duas figuras não serão 
desenhadas no mesmo lugar ou que al- 
go especial acontecerá se elas colidirem 
— uma explosão, digamos. 


COMO DETECTAR UMA FIGURA 





Suponhamos que você queira escre- 
ver um programa no qual uma bola fi- 


SCRN, POINT, PPOINT 





E PROGRAMA DA BOLA ELÁSTICA 
COMO DETECTAR COLISÕES 
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que batendo nas bordas da tela. Não se- 
rá difícil: conhecendo coordenadas dos 
quatro lados da tela, bastará incluir um 
teste de condição IF... THEN para veri- 
ficar se a bola está ou não batendo na 
borda. Para isso, as coordenadas da bo- 
la são comparadas com as coordenadas 
já conhecidas das bordas. Mas o que 
aconteceria se quiséssemos checar se a 
bola bateu na borda de um objeto cuja 
forma é mais complicada — um circu- 
lo, por exemplo? 

Poderíamos usar o mesmo método: 
um certo número de IF...THEN, con- 
tendo informações sobre as coordena- 
das do circulo, verificaria se a bola ba- 








teu na borda deste. A forma curvilinea 
é relativamente mais complexa e, por is- 
so, precisaríamos fazer muitos testes. 
Como sabemos, o computador demora 
para realizar um teste IF...THEN. As- 
sim, um programa cheio deles se torna- 
ria extremamente lento. 

Existe um limite de velocidade de exe- 
cução num programa em BASIC, mas o 
Spectrum, o MSX, o TK-2000, o Apple 
e o TRS-Color possusm um comando 
que permite detectar qualquer objeto na 
tela mais rapidamente do que pela che- 
cagem de suas coordenadas — mesmo 
que não conheçamos sua posição. 


A COR PELO NÚMERO 





Os comandos ATTR no Spectrum, 
SCRN no Apple e o POINT ou 
PPOINT no TRS-Color e no MSX de- 
volvem, como resposta, a cor que está 
localizada em uma determinada posição 
(ou pixel, como é o caso do PPOINT no 
TRS-Color). Dessa maneira, para detec- 
tar a presença de qualquer objeto, bas- 
ta atribuir-lhe uma cor e, depois, veri- 
ficar todas as posições de tela. 

No exemplo da bola, o círculo ver- 
melho devolveria o número (código) re- 
lacionado à cor vermelha em todas as 
posições que aparecesse. Por meio da 
simples verificação desse código, pode- 
riamos, por exemplo, fazer a bola ba- 
ter no circulo e voltar. 

O Spectrum devolve um número en- 
tre O e 255, levando em conta todos os 
ATTR (atributos) de cada posição de te- 
la: as cores do PAPER e INK, se o 
BRIGHT está ligado ou não, e se o ca- 
ractere se encontra sob a ação do co- 
mando FLASH. Os significados dos nú- 
meros nos atributos de cada posição da 
tela foram explicados na página 47. 

O comando SCRN no Apple retorna 
um valor de O a 15, correspondente a 
uma cor da letra gráfica. Se obtivermos 
o número 13, por exemplo, para uma 
certa posição de tela, saberemos que na- 
quela posição existe um caractere ama- 
relo, pois 13 é o código estabelecido pa- 
ra a cor amarela. 

O comando POINT no MSX devol- 
ve um número entre O e 16, correspon- 
dente à cor de um dos 256x192 pontos 
de sua tela. Este comando funciona 
igualmente bem tanto em alta quanto 
em baixa resolução gráfica. 

O TRS-Color retorna um número en- 
tre-l e 8, que se relaciona com a cor da 
posição de tela (ou pixel, para o caso do 
comando PPOINT). Obtemos o curio- 
so resultado de -1 quando tentamos ve- 
rificar a cor de uma letra: o texto só po- 
de ser verde ou preto (e a cor preta é, 








justamente, o inverso da verde). 

A sintaxe de cada um desses coman- 
dos é basicamente a mesma. Em todos 
eles, as coordenadas das posições de te- 
la devem vir sempre entre parênteses. A 
única diferença é que, no ATTR do 
Spectrum, a coordenada Y aparece an- 
tes da X. Um exemplo seria: 


PRINT ATTR(10,20) 


onde 10 é a coordenada Y e 20 é a coor- 
denada X da posição de tela cuja cor 
queremos saber. 

Nos demais microcomputadores a or- 
dem das coordenadas é a usual, ou se- 
ja, primeiro aparece a coordenada X e 
depois a Y. Para as mesmas coordena- 
das do exemplo anterior, teríamos: 


PRINT SCRN(20,10) 
para o Apple e 
PRINT POINT(20,10) 


para o MSX e o TRS-Color. O Spec- 
trum possui um arquivo de atributos ao 
qual podemos fornecer, via comando 
POKE, diferentes valores — e, portan- 
to, alterar o estado de certa posição de 
tela. Já o TRS-Color não tem um arqui- 
vo de cores separado, mas podemos mu- 
dar sua tela pela impressão (PRINT) de 
caracteres de outras cores. 

Como exemplo do uso dos comandos 
ATTR, SCRN e POINT, digite e rode 
o seguinte programa: 


10 BOBDER O: 
15 CLS 

20 FOR n=22528 TO 22559: POKE 
n,48: POKE n+672,48: NEXT n 
30 FOR n=22560 TO 23168 STEP 
32: POKE n,48B: POKE n+31,48: 
NEXT n 

40 FOR n=1 TO 30: PRINT 

PAPER 6:AT INT (RND*8B)*2+3, 


PAPER O: INK 9 


INT (BEND*13)*243;," ": NEXT n 
50 LET x=15: LET v=10: LET xv 
=-]1: LET vv=] 

BO PRINT AT wy,x;"O0": LET oy=y 
- LET 0X=X 


90 LET x=x+txv: LET vy=ytyv 

140 IF ATTR (y,x-1)=48 OR ATTR 
(y,x+1)=48 THEN LET xv=-xv 
145 IF ATTR (y-1,x)=48 OR ATTR 
(v+1,x)=48 THEN LET yv=-yv 
190 PRINT AT oy,0x;” ": GOTO 
Bo 


O display do Spectrum ocupa toda a 
tela: é um quadrado de bordas amare- 
las, contendo uma série de blocos tam- 
bém amarelos impressos aleatoriamen- 
te. Ao rodar o programa, o computa- 
dor começa a movimentar a bola diago- 
nalmente, para baixo e para a esquer- 
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da. Quando bate nas bordas ou em um 
dos blocos, ela volta, mas em outra 
direção. 






COMO DETECTAR COLISÕES 

Cabe ao comando ATTR verificar se 
a bola bateu nas bordas ou em algum 
dos blocos. Como estes são posiciona- 
dos aleatoriamente na tela, só teriamos 
uma outra alternativa: guardar em va- 
riáveis as posições dos blocos em rela- 
ção às coordenadas X e Y. Se usássemos 
duas variáveis para cada posição, ocu- 
pariamos grande quantidade de memó- 
ria. Além disso, precisaríamos incluir 
muitas verificações IF... THEN no pro- 
grama, tornando-o muito lento. 

Não enfrentaríamos os mesmos pro- 
blemas se utilizássemos IF... THEN pa- 
ra verificar se a bola bateu nas bordas, 
já que suas coordenadas são facilmente 
calculadas. Mas, como recorremos ao 
comando ATTR para checar se a bola 
está batendo num bloco amarelo, é mais 
conveniente usá-lo também para as bor- 
das, especialmente porque estas têm a 
mesma cor dos blocos. 

O programa começa definindo as co- 
res da tela e criando a moldura amare- 
la. As linhas 20 e 30, responsáveis pela 
moldura, inserem valores diretamente 
no arquivo de atributos, em vez de im- 
primirem espaços ou caracteres vazios. 
Dois laços FOR...NEXT percorrem os 
endereços de memória que contêm os 
atributos para posições ao redor da te- 
la. Cada endereço recebe, via comando 
POKE, o número 48, que é o código pa- 
ra PAPER amarelo e INK preto (com 
BRIGHT e FLASH desligados). 

A linha 40 imprime blocos aleatoria- 
mente (desta vez, espaços). Os números 
randômicos que controlam a disposição 
dos blocos são projetados de maneira 
que pelo menos duas posições de tela os 
separem da borda (para se evitar que al- 
gum bloco seja desperdiçado, caindo na 
moldura). 

A linha 50 estabelece o valor inicial 
de algumas variáveis — x e y para a po- 
sição inicial da bola, exv e yv para a di- 
reção inicial da bola nas coordenadas X 
e Y, respectivamente. 

Em seguida, o computador salta pa- 
ra a linha 80, onde imprime a bola e de- 
fine mais duas variáveis: ox e 0y, que 
guardam os valores anteriores de x e y. 
Esses valores são usados para apagar à 
bola, uma vez que x e y já foram atuali- 
zados pelos cálculos que determinam o 
movimento da bola. 

A linha 90 efetua os cálculos, soman- 
do os vetores de direção, determinados 
pelas variáveis xv e yv, às respectivas 
coordenadas x € y. 











Display do Spectrum: os blocos são distribuídos aleatoriamente 


dentro de uma moldura quadrada. 





O USO DO ATTR 


As linhas 140 e 145 são as mais im- 
portantes, já que executam a verificação 
da cor dos quatro quadrados que cercam 
a bola, 

Como se vê no programa, a função 
ATTR assume a seguinte forma: 


ATTR (coordenada y, coordenada x) 


Mas este não é um comando direto 
— como PRINT e LOAD, por exemplo 
—. devendo sempre vir embutido em 
outro comando (no nosso caso, uma de- 
claração IF...THEN). 

Em ambas as linhas existem declara- 
ções LET logo após as condições. Elas 
simplesmente revertem o vetor de velo- 
cidade se o quadrado com o qual a bola 
bateu for amarelo (ATTR = 48 represen- 
ta um quadrado amarelo). 

Na prática, a bola bate no quadra- 
do e volta num ângulo diferente de 90º. 
Ela deve estar vindo de cima ou de bai- 
xo (na direção y) ou de um dos lados 
do obstáculo (na direção x) no momen- 
to em que o atinge. Se ambos os veto- 
res de velocidade fossem revertidos, a 
bola simplesmente voltaria pelo mesmo 
caminho. Por isso, a verificação só al- 
tera seu movimento na direção em que 
ela bate. Sua velocidade na outra dire- 
ção (aquela em que ela não bateu em na- 
da) continua sendo a mesma. Assim, 
se a bola está prestes a atingir um blo- 
co amarelo logo abaixo, ela começa a 
se movimentar para cima, mas sua ve- 
locidade horizontal (na direção x) não 
é afetada. 

Depois de realizar duas verificações, 





Display do TRS-Color: apresenta cantos diagonais coloridos; 


a distribuição dos blocos não é aleatória. 


o Spectrum apaga a bola '“'velha””, 
sobrepondo-a com um espaço vazio (li- 
nha 190), e volta para a linha 80 para 
continuar o movimento, 


10 CLS0 

20 PRINT STRINGS (32,223);: PRINT 
6448, STRING3 (32,223); 

30 FOR K=1 TO 7:PRINT €32*K, CHR 
3 (223) +STRINGS (7-K, 191); 

40 PRINT 6€632*K+24+K, STRINGS (7-K 
« 175) +CHAS (223); 

Ss0 PRINT €6448B-32*K,CHRS(223)+5T 
RINGS (7-K,175);:PRINT €448-32*K 
+24+K, STRINGS (7-K, 191) +CHRS (223 
) 5 

60 NEXT 

70 FOR K=1 TO 16:READ A,B:POKE 
J024+A, B:NEXT 

80 DATA 137,143,114,159,111,159 
. 112,159,113,159,150,255,118,25 
5,203,239,276,239,296,255,264,2 
55,366,159,367,159,368,159,365, 
1590,406, 143 

90 X=32:Y=16:VX=2-RND(39)/10:VY 
= 2-RND (39) /10 

100 SET(X,Y,5) 

110 P1l=POINT(X+VX, Y+VY) :P2=POIN 

T(X+VX,T):P3I=POINT(X, Y+VY) : IF P 
1-0 AND P2=0 AND P3=0 THEN 190 
120 IF P2=0 AND P3=0 THEN 160 
130 IF P2>0 THEN VX=-VX:IF P2<4 
THEN VX «VK-SGN (VX) *RND (0) ELSE 
LF P2>3THENVK-VX | SON (VX) *RND (0) 
140 IF P35>0 THEN VY=-VY:IF P3<4 
THEN VY=VY-SGN(VY) *RND(O) ELSE 
LF P2>3THENVYT=VY+SGN(VY) *RND(O0) 
150 GOTO 190 

160 VX=-VX:VY=-VY 

170 IF PY>3 THEN VX=VX+SGN(VX)* 
END (0) :VY=VY+SON (VT) *RND (0) 

180 IF Pl<4 THEN VX=VX-SGN (VX)* 
BND (0) :VY=VY-SGON (VY) *RND (0) 


IF ABS(VX)<l THENVX=SGN(VX) 
IF ABS(VX)>2 THEN VX=2*S5GN( 


190 
200 
VX) 
210 
220 
VY) 
230 
240 


IF ABS (VY)<ITHEN VY=SGN(VY) 
IF ABS(VY)>2 THEN VY=2*SGN( 


RESET (X,Y) :X=X+VX:T=T+VT 
Goto 100 


O programa do TRS-Color exempli- 
fica bem a utilidade do comando 
POINT. O display que aparece na tela 
desse computador é um pouco diferen- 
te daquele que aparece nos outros. Ele 
não contém blocos espalhados aleatoria- 
mente, mas cantos diagonais coloridos. 
Usar variáveis para checar se a bola es- 
tá batendo em algum desses cantos se- 
ria complicado e deixaria o programa 
muito lento. E, considerando que pre- 
cisaríamos ainda adicionar vários 
IF... THEN para detectar colisões da bo- 
la com algum dos blocos no meio da te- 
la, podemos concluir que tal processo é 
praticamente inviável. 


VERIFICANDO MAIS DE UMA COR 





O POINT permite a detecção de três 
quadrados ao redor da bola com pou- 
cas linhas de programa. E, se escolher- 
mos cuidadosamente as cores, podere- 
mos fazer a verificação de várias delas 
com apenas duas checagens. 

O programa começa limpando a tela 
com um fundo preto e colocando os 
cantos, dois vermelhos e dois azuis (li- 
nhas 10 a 60). A linha 70 lê os dados dos 
blocos restantes (linha 80) e os imprime 
com POKE. Usando esse comando, em 


vez de PRINT, economizamos umas Ei! 


quatro linhas de programa. 








A linha 90 determina as coordenadas 
iniciais da bola, x e y, e também as ve- 
locidades iniciais xv e yv — que, na ver- 
dade, são componentes do vetor de ve- 
locidade nas direções X e Y, respectiva- 
mente. A bola, representada por um 
ponto de baixa resolução, é então im- 
pressa nas posições x e y. 

Para a checagem das cores, definem- 
se três variáveis (linha 110): P1, para o 
quadrado diagonalmente à frente da bo- 
la (qualquer que seja a direção em que 
ela esteja se movimentando), e P2 e P3, 
para os quadrados nas posições x e y se- 
guintes. Partindo do princípio segundo 
o qual não é necessário que sejam che- 
cados quadrados das direções em que a 
bola não se movimenta, concluímos que 
esses três testes já são suficientes. 


O USO DO POINT 





Como podemos ver na linha 110, o 
comando POINT toma a seguinte 
forma: 


POINT (coordenada x, coordenada y) 


Essa linha também é incumbida de 
verificar se os três quadrados são pre- 
tos (cor de número 0, que também é a 
cor de fundo). Em caso afirmativo, o 
computador vai para a linha 190, saltan- 
do os testes de reflexão, pois a bola não 
está batendo em nada, 

Se as próximas posições x e y (dire- 
ções horizontal e vertical, respectiva- 
mente) forem pretas, mas a diagonal se- 
guinte não, a bola precisará voltar exa- 
tamente na mesma direção de que veio. 
Assim, o computador salta para a linha 
160, que contém os procedimentos ne- 
cessários para esse caso especial de co- 


lisão diagonal. Os dois vetores de velo- : 


cidade (na direção x e na direção y) são 
invertidos, fazendo com que a bola re- 
troceda. 

As linhas seguintes também alteram 
a velocidade da bola, de acordo com a 
cor em que ela bate. 

Se nenhum dos testes executados até 
a linha 130 for verdadeiro, a bola deve 
estar atingindo algum objeto (seja ele 
um canto, seja ele um bloco) pelas late- 
rais. A linha 130 verifica se o quadrado 
atingido está na horizontal (lados direi- 
to ou esquerdo) e, constatando que sim, 
inverte o vetor relevante da velocidade. 
O vetor relevante é oposto ao eixo de co- 
lisão — portanto, no nosso exemplo, o 
vetor y é invertido. Em seguida, o com- 
putador efetua o teste a fim de identifi- 
car a cor do quadrado atingido. 


ACELERAÇÃO DA BOLA 





Os números 1, 2€ 3 correspondem ao 
verde, ao amarelo e ao azul, Se a cor 
do quadrado atingido for uma destas, 
a velocidade será diminuída; se for ver- 
melho, cinza, ciano, magenta ou laran- 
ja (número maior que 3), a bola será, 
então, acelerada. 

A vantagem de se escolher as cores 
(ou categoria de cores) com cuidado é 
evidente. Elas se agrupam em duas ca- 
tegorias: uma que causa diminuição de 
velocidade (1, 2 e 3) e outra que causa 
aumento (4 a 8). Ao selecionar núme- 
ros próximos em cada categoria, dimi- 
nuímos a quantidade de comandos 
IF... THEN, economizamos memória e 
agilizamos o programa, 

A linha 140 faz basicamente a mes- 
ma coisa que a 130, só que efetua a che- 





cagem na vertical, Depois, o computa- 
dor salta para a linha 190, onde se ini- 
cia a rotina que verifica o valor da ve- 
locidade. Se esta for maior que 2, 
obtém-se um estranho efeito na tela, 
pois, para simular movimento, o com- 
putador salta sobre um quadrado. Um 
salto muito grande pode, eventualmen- 
te, fazer a bola ultrapassar um bloco co- 
lorido sem o perceber. Daí a importân- 
cia da rotina que checa a velocidade. 

O mesmo tipo de problema aconte- 
ceria com uma velocidade menor que 1; 
mas um outro teste cuida disto. Obser- 
ve que todos os valores estão em módu- 
lo (ABS), ou seja, seus sinais são igno- 
rados. Embora -1 seja menor que 1, a 
magnitude da velocidade é a mesma pa- 
ra ambos os valores — o sinal menos in- 
dica que o sentido é contrário. O ABS 
simplesmente elimina o sinal antes de 
testar o valor da velocidade. 

A linha seguinte, isto é, a 230, atri- 
bui à bola a cor de fundo, apagando, as- 
sim, sua última posição. Depois, o pro- 
grama atualiza a velocidade da bola e 
manda o computador de volta para a li- 
nha 100. Esta dá continuidade ao mo- 
vimento da bola. 


Ml 


10 SCREEN 3:COLOR 15,1,3:R=RND( 

-TIME) 

20 LINE (0,96)-(96,0),6:PAINT ( 

0,0),6 

30 LINE (255,96)-(160,191),6:PA 

INT (255,191),6 

40 LINE (0,96)-(95,191),4:PAINT 
(0,191),4 

50 LINE (255,96)-(158,0),4:PAIN 

T (255,0) ,4 

60 LINE (0,0)-(255,0),3:LINE-(2 

55,191),3:LINE-(0,191),3:LINE-( 

0,0),3 

70 FOR 1I=1 TO B:READ X1,Y1,X2,7Y 

2.C:LINE (X1,Y1)-(X2,Y2),C,BF:N 

EXT 

80 DATA 130,30,160,45,11,100,17 

0,130,155,11,80,30,95,65,2,170, 
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135,180,160,2,90,90,100,120,13, 
150,80,160,110,13,60,100,70,140 
19,190,55,200,95,9 

90 X=120+16*RND (1) :Y7=90+16*RND( 
1) :VX=4*(-1)" INT (10*RND(1)):VY= 
q4*(-1)" INT(10O*RND(1)) 

100 PSET(X,Y) 

110 PI=POINT(X+VX, Y+VY) : P2=POIN 
T(X+VX,Y):P3I=POINT(X, Y+VT) : IF P 
1=1 AND P2=1 AND P3=1 THEN 190 
115 PLAY "05A64” 

120 IF P2=1 AND P3=1 THEN 160 
130 IF P2>1 THEN VX=-VXK 

140 IF P3>1 THEN VY=-VY 

150 GOTO 190 

160 VX==VX:Vf=-VT 

190 PRESET(X,Y) :X=K+VX:Y=T+VYT 
240 GOTO 100 


A primeira linha seleciona a tela de 
baixa resolução, define as cores e ativa 
o gerador de números randômicos. 

A tela do MSX não contém blocos es- 
palhados aleatoriamente, mas cantos 
diagonais coloridos. Utilizar variáveis 
para checar se a bola está batendo em 
algum desses cantos seria complicado e 
deixaria o programa extremamente len- 
to. E, considerando que precisaríamos 
ainda adicionar vários IF... THEN pa- 
ra detectar colisões da bola com algum 
dos blocos no meio da tela, podemos 
concluir que tal processo é praticamen- 
te inviável, 


VERIFICANDO MAIS DE UMA COR 


Com algumas linhas de programa, o 
POINT possibilita a detecção de três 
quadrados ao redor da bola. E, se esco- 
lhermos cuidadosamente as cores, pode- 
remos fazer a verificação de várias de- 
las com apenas duas checagens. 

O programa começa ajustando o fun- 
do: limpa a tela com um fundo preto, 
coloca os cantos — dois vermelhos e 
dois azuis — e desenha uma moldura 
verde (linhas 10 a 60). A linha 70 lê os 
dados dos blocos restantes que estão na 
linha DATA 80 e os coloca na tela via 





LINE. Como você pode observar, este 
programa é um bom exemplo de como 
os comandos gráficos funcionam em al- 
ta e em baixa resolução. 

A linha 90 determina as coordenadas 
iniciais da bola, X e Y, e as velocidades 
iniciais, VX e VY, que são componen- 
tes do vetor de velocidade nas direções 
X e Y, respectivamente. A bola, repre- 
sentada por um ponto de baixa resolu- 
cão, é, então, impressa nas coordenadas 
X,Y. 

Para a checagem das cores, definem- 
se três variáveis (linha 110): Pl, para o 
quadrado diagonalmente à frente da bo- 
la (qualquer que seja a direção em que 
ela esteja se movimentando), P2 e P3, 
para os quadrados nas posições de bai- 
xa resolução seguintes (cada bloco de 
baixa resolução tem quatro por quatro 
pontos). Partindo do princípio de que 
não é preciso checar os quadrados das 
direções nas quais a bola não se movi- 
menta, concluímos que esses três testes 
são suficientes. 

A linha 110 também verifica se os três 
quadrados são pretos (cor de número 1, 
que também é a cor de fundo). Em ca- 
so afirmativo, o computador vai para a 
linha 190, saltando os testes de reflexão, 
pois a bola não está batendo em nada. 

Se a posição x de baixa resolução se- 
guinte (quatro pontos adiante na dire 
ção horizontal) e a posição y seguint 
(quatro pontos na direção vertical) fo 
rem pretas, mas a próxima não, a bolã 
precisará voltar exatamente na mesma 
direção de que veio. Assim, o compu- 


tador salta para a linha 160, que con- 
tém os procedimentos necessários para 
esse caso especial de colisão diagonal. 
Os dois vetores de velocidade (na dire- 
ção x e na direção y) são invertidos, fa- 
zendo a bola retroceder. 

Se nenhum teste executado até a li- 
nha 130 for verdadeiro, a bola deve es- 
tar atingindo algum objeto (seja ele um 
canto ou um bloco) pelas laterais. A li- 
nha 130 verifica se o quadrado atingido 
está na horizontal (lados direito ou es- 
querdo), e, constatando que sim, inver- 
te o vetor relevante da velocidade, O ve- 
tor relevante é oposto ao eixo de coli- 
são — portanto, no nosso exemplo, o 
vetor y é invertido. 

A linha seguinte, ou seja, a 190, atri- 
bui à bola a cor de fundo, apagando, as- 
sim, sua última posição. Depois, o pro- 
grama atualiza a velocidade da bola e 
manda o computador de volta para a li- 
nha 100. Esta dá continuidade ao mo- 
vimento da bola. 
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COLOR= 13 
PLOT X,0: 


LO HOME : GR 
20 FOR X = 0 TO 39: 
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PLOT X,39: NEXT 

30 FOR Y = 0 TO 39: PLOT 0,7%: 
PLOT 39,Y: NEXT 

40 FORN=1TOd3O 


50 RX = INT ( RND (1) * 34) + 
3 
60 RY = INT ( RND (1) * 34) + 
3 


70 PLOT BRX,RY: NEXT 

80 X = 19:77 = 19:XV = - 1:YV = 
1 

90 COLOR= 3: PLOT X,Y:0X = X:0 

T=Y 

100 X = X+ XKV:T = Y + YV 


110 TX = SCRN( X + XV,T) 

120 TY = SCRN( X,Y + YV) 

130 IF TX = 13 THEN XV = - XV 
140 IF TY = 13 THEN YV= -qYV 
150 COLOR= O: PLOT 0X,0Y 

160 GoTo 90 


Le] 


Para o TK-2000, substitua os núme- 
ros 13, no programa do Apple, por 5. 
As linhas alteradas ficam assim: 


10 HOME : GR : COLOR= 5 
130 IF TX = 5 THEN XV = 
140 IF TY = 5 THENYV= 


= MV 
- TV 


O programa para o Apple e o 
TK-2000 não difere muito daquele do 
Spectrum. Ele começa limpando a tela, 
definindo o modo gráfico de baixa re- 
solução e especificando a cor amarela 
(número de código 13), tanto para os blo- 
cos como para as bordas. Em gráficos 
de baixa resolução temos uma tela ini- 
cial de 40x40, com uma janela para tex- 
to. Se indicarmos algum ponto da tela, 
aparecerá naquela posição um retângu- 
lo na cor que estiver em vigor. No 
TK-2000, o código da cor é 5 
(vermelho). 

A linha 20 é responsável pelas partes 
superior e inferior das bordas. Observe 
que mantivemos o valor da coordenada 
y constante e variamos o valor da coor- 
denada x, traçando, assim, as duas li- 
nhas horizontais. 

A linha 30 segue o mesmo princípio 
da linha 20, mas varia os valores da 
coordenada y e traça os lados esquerdo 
e direito das bordas. 

Os blocos espalhados aleatoriamen- 
te pela tela são gerados entre as linhas 
40 e 70. A linha 50 atribui à coordena- 
da RX um valor randômico entre 3 e 36, 
ea linha 60 atribui a RY um valor nesse 
mesmo intervalo. 

RX e RY são as coordenadas do blo- 
co a ser plotado (traçado no gráfico). A 
linha 80 define as coordenadas iniciais 
do retângulo que, no caso, representa a 
bola, e também ajusta os sentidos dos 
vetores de velocidade XV e YV. 


A linha 90 define a cor da bola — o 
número 3 é o código para a cor púrpu- 
ra no Apple e branca no TK-2000 —, 


imprimindo-a, em seguida, nas coorde- ' 


nadas x e y. A mesma linha define duas 
outras variáveis importantes: OX e OY, 
que armazenam as coordenadas da po- 
sição anterior da bola para que esta pos- 
sa ser apagada mais tarde. 

A posição da bola é atualizada pela 
linha 100 do programa, que incrementa 
as coordenadas da bola na direção do 
vetor da velocidade. 

A cor do quadrado situado imedia- 
tamente ao lado da bola — ou seja, 
aquele no qual a bola está prestes a ba- 
ter pela horizontal — é guardada em 
TX, por meio do comando SCRN, A 
cor do quadrado logo acima ou abaixo 
(depende da trajetória) da bola é guar- 
dada na variável TY, As linhas 130 e 140 
verificam se esses quadrados que estão 
no caminho da bola são amarelos (cor 
13) ou, no caso do TK-2000, vermelhos 
(cor 5). Se o quadrado da horizontal for 
amarelo ou vermelho, inverte-se o vetor 
de velocidade horizontal da bola. 
Tratando-se do quadrado de cima ou de 
baixo, o vetor invertido será o da com- 
ponente vertical. 

Para apagar a bola, utilizamos o já 


conhecido artifício de redesenhá-la na. 


mesma posição, só que na cor de fun- 
do. Para isso, a linha 150 seleciona a cor 
O (preta), que é a cor de fundo, e plota 
um quadrado no local definido pelas 
coordenadas 0X,0Y — coordenadas 
“velhas” da bola. 

O programa continua na linha 160, 
que envia o computador de volta para 
a linha 90 e tudo se repete. 

Observe que o programa não inclui 
testes para a verificação de quadrados 
dispostos diagonalmente à trajetória 
percorrida pela bola. Assim, eles são ig- 
norados e eliminados. Não é difícil 
acrescentar uma linha que faça esse tes- 
te, mas o efeito seria uma bola indo e 
voltando pelo mesmo caminho. 


E ne bsiláito! 


É muito fácil transformar os progra- 
mas em jogos, bastando adicionar-lhes 
algumas linhas. O programa de TRS- 
Color, por exemplo, constituiria uma 
boa base para um jogo tipo fliperama. 
Podemos fazer o computador executar 
várias operações depois das condições 
IF... THEN — por exemplo, soar um 
bip cada vez que a bola atinge um blo- 
co ou borda, ou mesmo acrescentar um 
placar. Outros artigos de INPUT utili- 
zarão os comandos vistos aqui em diver- 
sas rotinas de jogos. 


Th 


O TRS-Color não dispõe apenas do 
POINT, usado na tela de baixa resolu- 
ção. Há outro comando, o PPOINT, 
que pode ser utilizado na tela de alta re- 
solução. No MSX, o mesmo comando 
POINT se aplica à alta resolução. 

Em vez de devolver o código da cor 
de um certo quadrado, como faz o co- 
mando POINT, o PPOINT devolve o 
código da cor de um ponto. 

Digite e rode o programa a seguir e 
veja como empregar esse comando. 


LO PMODE 1,1 

20 PCLS 3 

30 SCREEN 1,0 

40 LINE(20,20)-(235,171),PRESET 
(BF 

50 VX=RND(7)-4:VY=RND(7)-4 

60 BX=127:BY7=95 

70 PSET(BX,BY,4) 

BO IF PPOINT(VX+BX,BY)=3 THEN V 
X=RND (3) * ( (VX>0)- (VX<0)) 

90 IF PPOINT(BX,BY+VY)=3 THEN V 
Y=RND (3)*((VY>0)- (VY<0)) 

100 PRESET (BX,BT) 

110 BX=BX+VX:BY=BI+VT 

120 GoTo 70 


Lo 


10 SCREEN 2:COLOR 1,15,15:R=RND 
(-TIME) 

40 LINE (16,16)-(238,177/),4,B:P 
AINT(0,0),4 

50 VX=INT(RND(1)*8-4) :VY=INT(RN 
D(1)*8-4) 

60 BX=127:BY=95 

70 PSET(BX,BY),4 

80 IF POINT(VX+BX,BY)=4 THEN VX 
==UX 

90 IF POINT (BX,BY+VY)=4 THEN VT 
==VY 

100 PRESET(BX,BY),15 

110 BX=BX+VX:BY=BY+VY 

120 GoTO 70 


Uma bola movimenta-se pela tela, 
batendo e voltando. O comando 
PPOINT — ou POINT, no MSX — é 
usado para verificar se a bola bateu na 
parte azul. As linhas 80 e 90 checam se 
o ponto à frente da bola é azul. Em ca- 
so afirmativo, a bola é revertida pelo 
restante das duas linhas, que calculam 
uma velocidade aleatória para o movi- 
mento da bola (no programa do MSX 
a velocidade é apenas invertida). 

Em geral, usa-se PPOINT (ou POINT, 
no MSX) para detectar colisões. Se ti- 
vermos, por exemplo, um gráfico coli- 
dindo com outro, podemos checar a co- 
lisão verificando a cor de um deles. 
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Apple Il + 

Apple Il+ 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple + 
Apple ll+ 
Apple Il + 
Apple + 
Apple + 
Apple + 
Apple ll+ 
Apple ll + 
Apple ll+ 
Apple ll + 
Apple Il + 
Apple ll + 
Apple Il + 
Apple + 
Apple Hl+ 
Apple Il + 

Apple Il + 
Apple ll + 
Apple ll + 
Apple ll + 
Apple Il + 
Apple ll+ 
Apple lle 

Apple Ile 


Apple Ile 
MSX 


MSX 


FABRICANTE Po 


Appletronica 
CCE 

CPA 

CPA 

Digitus 
Dismac 
ENIAC 
Franklin 
Houston 
Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Milmar 
Milmar 
Milmar 
Omega 
Polymax 
Polymax 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Unitron 
Victor do Brasil 
Victor do Brasil 
Microcraft 
Microdigital 
Spectrum 
Gradiente 
Sharp 


MODELO 


Thor 2010 
MC-4000 Exato 
Absolutus 


| Polaris 


DGT-AP 
D-8100 
ENIACII 
Franklin 
Houston AP 
DMII 
MX-2001 
MX-48 

MX.64 
Maxitronic | 
Crafll Plus 
Apple Il Plus 
Apple Master 
Apple Senior 
MC-400 
Maxxi 

Poly Plus 
Microengenho | 
Spectrum ed 
Venus ll 

SICI 

API 

Elppa ll Plus 
Elppa Jr. 
Craftlle 
TK-3000 He 


"Microengenho ll 


Expert GPC4 
Hotbit HB-8000 


FABRICANTE 


Appletronica 
Apply 

CCE 

CPA 

CPA 
Codimex 
Digitus 
Digitus 
Digitus 
Dismac 
Dismac 
Dismac 
Dynacom 
ENIAC 
Engebras 
Filcres 
Pranklin 
Gradiente 
Houston 
Kemitron 
LNW 

LZ 

Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Microcraft 
Microdigital 
Microdigital 
Microdigital 
Microdigital 


MODELO 


Thor 2010 
Apply 300 
MC-4000 Exato 
Absolutus 
Polaris 
CS-6508 
DGT100 
DGT-1000 
DGT.AP 
D-8000 
D-8001/2 
D-8100 
MX1600 
ENIACII 
AS+1000 
NEZ-8000 
Franklin 
Expert GPC1 
Houston AP 
Naja 800 
LNW-B0 
Color 64 
DMI 
MX-2001 
MX-48 
MX-64 
Maxitronic | 
Craft ll Plus 
Caftlle 
TK-3000 Ile 
TK-82C 
TK-83 

TK-85 


PAÍS 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


Brasil 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
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Apple Il+ 


o Sinclair ZX-81 


Apple ll + 
Apple + 
Apple ll + 
TRS-Color 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
Apple + 
TRS-80 Mod.! 
TRS-80 Mod. 
Apple ll + 
TRS-Color 
Apple ll+ 
Sinclair ZX-81 
Sinclair ZX-81 
Apple ll + 
MSX 

Apple Il + 
TRS-80 Mod.lll 
TRS-80 Mod. | 
TRS-Color 
Apple Il + 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple Il+ 
Apple lle 
Apple lle 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 


Microdigital TK-90X Brasil 
Microdigital TKS-800 Brasil 


Sinclair Spectrum | 
TRS-Color 


Microdigital TK-90X 
Timex 2000 


Sinclair Spectrum 
Sinclair Spectrum Timex 


Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
TRS-80 Mod.I 
TRS-80 Mod. | 
TRS-80 Mod. | 
TRS-80 Mod.! 
TRS-80 Mod.lil 
TRS-BO Mod.il 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lll 
TRS-80 Mod.lil 
TRS-80 Mod.IV 
TRS-80 Mod.IlV 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 


Apply 
Engebras 


“Filcres 


Microdigital 
Microdigital 
Microdigital 
Prologica 
Ritas 

Timex 
Timex 
Dismac 
Dismac 
LNW 

Video Genie 
Digitus 
Digitus 
Kemitron 
Prologica 
Prologica 
Sysdata 
Sysdata 
Multix 
Sysdata 
Codimex 
Dynacom 
LZ 
Microdigital 
Prologica 


Apply 300 
AS41000 
NEZ-8000 
TK-B2C 
TK-83. 
TK-85 
CP-200 
Ringo R-470 
Timex 1000 
Timex 1500 
D-8000 | 
D-8001/2 
LNW-80 
Video Genie | 
DGT100 
DGT-1000 
Naja 800 
CP-300 
CP-500 
Sysdata Ill 
Sysdata Jr. 
MX-Compacto 
Sysdata IV 
CS-6508 
MX-1600 
Color 64 
TKS-800 
CP-400 


Milmar 
Milmar 


“Milmar 


Multix 
Omega 
Polymax 
Polymax 
Prologica 
Prologica 
Prologica 
Prologica 
Ritas 

Sharp 
Spectrum 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Sysdata 
Sysdata 
Sysdata 
Timex 
Timex 
Timex 
Unitron 
Victor do Brasil 
Victor do Brasil 
Video Genie 


Apple ll Plus 
Apple Master 
Apple Senior 
MX-Compacto 
MC-400 

Maxxi 

Poly Plus 
CP-200 

CP-300 

CP-400 

CP.500 

Ringo R-470 
Hotbit HB-8000 
Microengenho | 
Microengenho Il 
Spectrum ed 
Venus ll 

SICI 

Sysdata Ill 
Sysdata IV 
Sysdata Jr. 
Timex 1000 
Timex 1500 
Timex 2000 
APII 

Elppa Il Plus 
Elppa Jr. 

Video Genie! 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

USA 

USA 

Brasil 
Brasil 
Brasil 
USA 


Apple Il + 
Apple ll + 
Apple Il + 
TRS-B0 Mod.IV 
Apple Il + 
Apple Il + 
Apple l+ 
Sinclair ZX-81 
TRS-80 Mod.Ill 
TRS-Color 
TRS-80 Mod.lll 
Sinclair ZX-81 
MSX 

Apple Il+ 
Apple Ile 
Apple l+ 
Apple Il + 
Apple Il + 
TRS-80 Mod. 
TRS-80 Mod.IV 
TRS-80 Mod.lll 
Sinclair ZX-81 
Sinclair ZX-81 


Sinclair Spectrum 


Apple Il + 
Apple Il + 
Apple ll+ 
TRS-80 Mod. | 
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“INPUT foi especialmente projetado para PN 
“ microcomputadores compatíveis com as sete principais Sinclair E TARSO TK:2000 MSX 


“linhas existentes no mercado. 
ba, então emp a sr 


“Os blocos de textos e listagens de programas po pera 
Eme renes E UM [06] Semp e 
; identificados por meio dos seguintes sim os: TRS-Color pune dl 
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IHHRnEnENO PRÓXIMO NUMEROEEEEEHII 


PROGRAMAÇÃO BASIC 
Rotinas de ordenação: por substituição retardada, por 
espalhamento, por inserção, instantânea. 


PROGRAMAÇÃO BASIC 
Símbolos gráficos do TK-2000. Entrada de gráficos pelo 
teclado e seu uso em programas. 


PROGRAMAÇÃO BASIC 


Música em seu micro: pequenas melodias. 


PROGRAMAÇÃO DE JOGOS 


Conclusão do jogo de palavras. 





